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SLICING THE CONE 
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PARABOLA AND HYPERBOLA 

■ 

ROTATING THE CURVES 

■ 

PRACTICAL APPLICATIONS 



by the Greek, Apollonius, around 200 BC. 

The starting point is if a pair of intersecting 
straight lines— like an X— are rotated about 
an axis of symmetry. This generates a double 
cone (see the drawings), which can be sliced 
up in four ways. 

If a slice is made at right angles to the axis 
of symmetry the section is a circle. 


The simple cone is one of the most 
fascinating mathematical shapes, 
producing a whole family of 
important curves. Here are some 
programs to explore its attributes 

Curves have fascinated mathematicians from 
the earliest days, and the simpler and more 
elegant the curves were, the more important 
they seemed. The early Greek mathema- 
ticians were very keen to keep maths as simple 
as possible, so when it was discovered that an 
entire family of curves — known as conic 
sections — could be obtained simply by slicing 
through a cone, it seemed obvious that cones 
must have some special significance. Depend- 
ing on how the cone is sliced, you can obtain a 
circle, an ellipse a parabola or a hyperbola. 

In fact the beauty of these curves is that 
they are not mere mathematical abstractions, 
but crop up time and again in everyday life, 
and provide an accurate description of real 
physical phenomena. 

There are, of course, other simple curves 
that are found in nature that are not sections 
of a cone. The shape of a rope or chain 
hanging between two points is one. It is called 
a catenary, and even though it looks rather 
like a parabola it is subtly different, and is 
described by quite different equations. 

But the conic sections are important 
as they are often related to the 
way things move and so 
are needed for 
any realistic 
program. 


Some of the curves are also useful as solid 
three-dimensional objects. The slices through 
a cone are obviously two-dimensional, but 
they can be rotated round their axis to form a 
three-dimensional shape. The circle becomes 
a sphere, with any number of uses, and the 
parabola becomes a paraboloid, used in things 
as diverse as car headlamps, telescope mir- 
rors, solar furnaces and many others. 

This article is in two parts. The first part 
describes each curve and how to draw it on the 
screen, while the second part shows how to 
use the curves in simulations such as the path 
of a bucket (or person) attached to a slipping 
ladder (an ellipse), or a person swimming 
across a river (a parabola). 

You’ll also see how to draw some impress- 
ive screen art using the hyperbola and the 
ellipse. 


SLICING THE CONE 


The four curves obtained by slicing 
through a cone — the circle, 
ellipse, parabola and 
hyperbola — are quite 
distinct. They were 
first considered 
in detail 








A slice taken at an angle between 90° and 
half the angle between the lines (called the 
semi-vertical angle of the cone) gives a section 
called an ellipse. 

A slice made at an angle to the axis which 
equals the semi-vertical angle gives a 
parabola. 

A slice made at an angle less than the semi- 
vertical angle gives a section with two parts 
called an hyperbola. There are two parts to 
the hyperbola because the slice cuts both the 
upper and lower cones. 

There are two special cases. If a slice is 
taken which includes the axis, that is, the 
cones are cut in half from top to bottom, then 
two straight lines are obtained — the ones used 
to generate the cone in the first place. This is 
really a special case of the hyperbola. Also if a 
slice at 90° to the axis is taken between the 
two cones then all you have is a point, which is 
just a circle of zero radius. 

The drawings below and on the next page 
should make it clear how all these shapes are 
obtained. If you like, you can easily make the 
slices yourself by cutting out a cone from 
some suitable material — rolled up paper — 
and then slicing it in different directions. 
You’ll only need a double cone if you want to 
make a real hyperbola, as this always consists 
of two parts, but you can model half of it. 


DRAWING THE CURVES 


All the curves are generated by simple equ- 
ations, some of which you will already have 
seen. To enable you to use hi-res graphics 
commands on the Commodore 64 you need a 
Simon’s BASIC cartridge, or INPUT’S ma- 
chine code utility, starting on page 748. And 
on the Vic, a Super Expander cartridge. 


THE CIRCLE 


The equation of a circle is given by 

X = A # COS theta 
Y = A*SIN theta 

where A is the radius, X,Y is a point on the 
circumference, and theta is the angle made 
with a fixed line — usually the X axis. 

The first program draws a circle with 
radius A, centred in the middle of the screen: 


10CLS 
15 LET a = 70 


25 LET x=a: LET y = 0 
30 PLOT 127 + x,70 + y 
40 FOR t = 0 TO 2*PI STEP .2 


50 LET x = a'C0S t: LET y = a'SIN t 
60 DRAW x- PEEK 23677 + 127, 
y- PEEK 23678 + 70 
70 NEXT t 


858 


KH 


10 HIRES 0,1 :C0L0UR 1,1 

15 A=60 

20 C = ATN(1)/45 

30 XX = 160 + A:YY = 100 

40 FOR TH = 0 TO 360 STEP 10 

50 X= A*C0S(TH"C):Y = A'SIN(TH'C) 

60 LI N E XX,YY,1 60 + X,1 00 + Y,1 

65 XX = 1 60 + X:YY = 1 00 + Y 

70 NEXT TH 

80 GOTO 80 

SS 

10 GRAPHIC 2:C0L0R 6, 6, 5, 5 

1 5 A = 200 

20 C = ATN(1)/45 

25 X = A:Y = 0 

30 POINT 1, 512 + X, 512 + Y 

40 FOR TH = 0 TO 360 STEP 10 

50 X = A"COS(TH'C):Y = A'SIN(TH‘C) 

60 DRAW 1 TO 51 2 + X,51 2 + Y 

70 NEXT TH 

80 GOTO 80 


10 MODE 1 
1 5 A = 200 
20 VDU29,640;512; 

25 X = A:Y = 0 
30 M0VEX,Y 

40 FOR TH = 0 TO 360 STEP 10 
50 X = A*C0S(RAD(TH)): 

Y = A'SIN(RAD(TH)) 

60 DRAW X,Y 
70 NEXT TH 

wa 

10 PM0DE4:PCLS:SCREEN1 ,1 

1 5 A = 60 

20 C = ATN(1)/45 

30 LINE -(127 + A, 95), PRESET 

40 FOR TH = 0 TO 360 STEP 10 

50 X = A*C0S(TH*C): 

Y=A*SIN(TH*C) 

60 LINE — (127 + X,95 + Y),PSET 
70 NEXT TH 
80 GOTO 80 

The FOR ... NEXT loop in Lines 40 to 70 is the 
part of the program that draws the circle by 
repeatedly drawing straight line segments at 
intervals of 10 degrees (or .2 radians). 

The radius of the circle 
is set at Line 15. 


THE ELLIPSE 


The equation for an ellipse is very similar to 
that for a circle. For an ellipse with major axis 
2A and minor axis 2B, the position of any 
point on the circumference is: 

X = A*COS theta 
Y = B*SIN theta 

The shape of the ellipse — how squashed it is 
is determined by A and B. Change these lines: 


1 6 LET b = 40 

50 LET x = a # C0S t: LET y = b*SIN t 

BE 

16 B = 30 

50 X = A'C0S(TH'C):Y = B*S1N(TH*C) 

KS 

16 B = 1 00 

50 X = A‘C0S(TH'C):Y = B'SIN(TH*C) 


16 B = 1 00 

50 X = A*C0S(RAD(TH)): 
Y = B'SIN(RAD(TH)) 
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TV screen. These are the programs to draw 60 DRAW x — PEEK 23677 + 127, 
the parabola: 80 + y - PEEK 23678 + 80 



70 NEXT t 

BE 

10 HIRES 0,1 :C0L0UR 1,1 
1 5 M = 23 


The hyperbola 


' •/'. -V 




16 B = 30 

50 X = A*C0S(TH*C): Y = B*SIN 
(TH*C) 


THE PARABOLA 


The size of the parabola depends on the value 
of a variable T, the equations are: 

X = T 2 
Y = 2*T 

The value T can vary from infinity to minus 
infinity, but quite a reasonable section of the 
parabola can be seen between T = 2 to 
T = — 2. In the program these values then 
have to be scaled up by a factor M to fit on the 













20 C = ATN(1)/45 

30 XX = 1 60 + M*4: YY = 1 00 - 4* M 
40 FOR T= -2 TO 2 STEP .05 
50 X = M‘Tf2: Y = 2'M'T 
60 LINE XX,YY,1 60 + X,1 00 + Y,1 
65 XX = 1 60 + X: YY = 1 00 + Y 
70 NEXT T 
80 GOTO 80 


30 LINE — (127 + M'4, 95— 4*M), PRESET 
40 FOR T= -2 TO 2 STEP .05 
50 X=M'T|2:Y=2'M'T 
60 LINE — (1 27 + X,95 + Y),PSET 
70 NEXT T 
80 GOTO 80 


THE HYPERBOLA 


SB 

10 GRAPHIC 2:COLOR 6, 6, 5, 5 
15 M = 50 
20 C = ATN(1)/45 
25 X = M'4:Y= — M"4 
30 POINT 1,512 + X,512 + Y 
40 FOR T= -2 TO 2 STEP .05 
50 X = MTf2:Y = 2’M'T 
60 DRAW 1 TO 512 + X,512 + Y 
70 NEXT T 
80 GOTO 80 


B 

10 MODE 1 
1 5 M = 1 00 
20 VDU29,640;51 2; 

25 X=4*M:Y = — 4'M 
30 MOVE X,Y 

40 FOR T= -2 TO 2 STEP .05 
50X = MTT:Y = M*2*T 
60 DRAW X,Y 
70 NEXT T 





10 PMODE4:PCLS:SCREEN1,1 
1 5 M = 23 
20 C = ATN(1)/45 


The hyperbola equation is: 

X = A/COS theta 
Y = B*TAN theta 

One half of the hyperbola is traced out as theta 
goes from minus 90° to 90°, and the other 
half is traced as theta goes from 90° to 270°. It 
is theoretically possible to use just one loop in 
the program and take theta from —90° to 
270° but there are problems at —90°, 90° 
and 270° as at these points division by zero 
occurs, which the computer cannot deal with. 
Even at values of theta near these, large values 
are involved. So the program below uses two 
loops instead. Again, a magnification factor M 
is used to scale the drawing to fit the screen: 



10CLS 

1 5 LET m = 30 

25 LET x = m/COS — 1 :LET y = m*TAN - 1 
30 PLOT 127 + x,75 + y 
40 FOR t = — 1 TO 1 STEP .1 
50 LET x = m/COS t: LET y = m‘TAN t 
60 DRAW 1 27 + x- PEEK 23677, 

75 +y- PEEK 23678 
70 NEXT t 

75 LET x = m/C0S(PI — 1): 


LET y = m*TAN(PI — 1) 

80 PLOT 1 27 + x, 75 + y 
90 FOR t = PI — 1 TO PI + 1 STEP .1 
100 LET x = m/COS t: LET y = mTAN t 
110 DRAW 127 + x- PEEK 23677, 

75 + y- PEEK 23678 
120 NEXT t 

SB 

10 HIRES 0,1:COLOUR 1,1 
1 5 M = 50 
20 C = ATN(1)/45 

25 X = M/C0S( - 60*C):Y = M'TAN( — 60*C) 

30 XX = 267:YY = 8 

40 FOR TH= — 60 TO 60 STEP 5 

50 X = M/C0S(TH*C):Y = M'TAN(TH'C) 

60 LINE XX,YY,1 60 + X,1 00 + Y,1 
65 XX = 160 + X:YY=100 + Y 
70 NEXT TH 

75 X = M/C0S(1 20'C):Y = M*TAN(1 20*C) 

80 XX = 50: YY = 8 
90 FORTH = 120 TO 240 STEP 5 
1 00 X = M/C0S(TH'C):Y = M'TAN(TH'C) 
110 LINE XX,YY,1 60 + X,1 00 + Y,1 



860 








1 1 5 XX = 1 60 + X:YY = 1 00 + Y 
120 NEXT TH 
130 GOTO 130 

IE 

10 GRAPHIC 2:COLOR 6, 6, 5, 5 
1 5 M = 1 50 
20 C = ATN(1)/45 

25 X = M/COS( - 60*C): Y = M'TAN( — 60‘C) 
30 POINT 1,512 + X, 512 + Y 
40 FOR TH = — 60 TO 60 STEP 10 
50 X= M/COS(TH*C):Y = M'TAN(TH'C) 

60 DRAW 1 TO 512 + X,512+Y 
70 NEXT TH 

75 X = M/COS(1 20’C):Y = M*TAN(1 20’C) 

80 POINT 1 ,INT(51 2 4- X),INT(51 2 + Y) 

90 FOR TH = 1 20 TO 240 STEP 5 
1 00 X = M/COS(TH'C):Y = M'TAN(TH'C) 

110 DRAW 1 TO 512 + X,512 + Y 
120 NEXT TH 
130 GOTO 130 



10 MODE 1 
1 5 M = 1 00 


20 VDU 29,640;512; 

25 X=M/COS(RAD( — 60)): 

Y = M'TAN(RAD( — 60)) 

30 MOVE X,Y 

40 FOR TH = — 60 TO 60 STEP 5 
50 X = M/COS(RAD(TH)):Y = M'TAN(RAD(TH)) 
60 DRAW X,Y 
70 NEXT TH 

80 MOVE -200,-173 
90 FORTH = 120 TO 240 STEP 5 
100 X = M/COS(RAD(TH)): 

Y = M*TAN(RAD(TH)) 

110 DRAW X,Y 

120 NEXT TH 



10 PMODE4:PCLS:SCREEN1,1 
15 M = 50 
20 C = ATN(1)/45 
30 LINE -(227, 8), PRESET 
40 FORTH =-60 TO 60 STEP 5 
50 X = M/COS(TH‘C):Y = M*TAN(TH*C) 
60 LINE — (1 27 + X,95 + Y),PSET 
70 NEXT TH 

80 LINE- (26, 8), PRESET 



90 FORTH = 120 TO 240 STEP 5 
100 X = M/COS(TH*C):Y = M*TAN(TH*C) 
110 LINE — (127 + X,95 + Y),PSET 
120 NEXT TH 
130 GOTO 130 


ROTATING THE CURVES 


The last programs drew the shapes in the 
simplest possible way with the X axis horiz- 
ontal and the Y axis vertical. This, though, is 
not always convenient, and you may need to 
draw the curves at an angle. Fig. 1 shows what 
happens to a point on the edge of an ellipse as 
it is rotated through an angle of AN degrees. 
The point P moves from position X,Y to its 
new position XT,YT and its new coordinates 
are given by: 

XT = X*COS AN — Y*SIN AN 
YT = X*SIN AN + Y*COS AN 

Here is the rotation routine for each 
computer: 


1000 LET xt = x*C0S (an*PI/1 80) — 
y*SIN (an-PI/180) 

1010 LET yt = x*SIN (an # PI/180) + 
y’COS (an*PI/1 80) 

1020 RETURN 


SB IE 



1000 XT=X*COS(AN’C) — Y'SIN(AN'C) 
1 01 0 YT = Y # C0S(AN*C) + X*SIN(AN*C) 
1020 RETURN 


1000 DEF PROCrotate 
1010 XT = X # COS(RAD(AN)) — 
Y*SIN(RAD(AN)) 

1020 YT = X*SIN(RAD(AN)) + 
Y # COS(RAD(AN)) 

1030 ENDPROC 

You’ll have to make a few alterations to the 
curve drawing programs to make use of the 
rotate subroutine. The angle of rotation AN 
has to be specified (Line 17), the start position 
has to be rotated, then the lines have to be 
drawn to the new rotated coordinates XT and 
YT instead of X and Y. If you like you can alter 
Line 17 to allow you to INPUT the angle of 
rotation. On the Dragon and Tandy the INPUT 
has to come before Line 10. 

Here are the changes to make to the ellipse 
drawing program. Don’t forget to add the 
rotate routine to each program. 



17 LET an = 60 
28 GOSUB 1000 
30 PLOT 127 + xt,70 + yt 
55 GOSUB 1000 
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60 DRAW xt- PEEK 23677 + 127, 
yt- PEEK 23678 + 70 
80 STOP 


KB 

17 AN = 60 

25 X=A:GOSUB 1000 

30 XX = 160+XT:YY = 100 + VT 

55 GOSUB 1000 

60 LINE XX,YY,1 60 + XT,1 00 + YT,1 
65 XX = 1 60 + XT : YY = 1 00 + YT 


KB 

17 AN = 60 

25 X=A:GOSUB 1000 
30 POINT 1, 51 2 + XT, 51 2 + YT 
55 GOSUB 1000 

60 DRAW 1 TO 51 2 + XT,51 2 + YT 


B 

17 AN = 60 
28 PROCrotate 
30 MOVE XT,YT 
55 PROCrotate 
60 DRAW XT,YT 
80 END 


IE 

17 AN = 60 
28 GOSUB 1000 
30 POINT 1, 51 2 + XT, 51 2 + YT 
55 GOSUB 1000 

60 DRAW 1 TO 51 2 + XT, 51 2 + YT 



17 AN = 60 
28 PROCrotate 
30 MOVE XT,YT 
55 PROCrotate 
60 DRAW XT,YT 
80 END 


LV 


U 


17 AN = 60 
20 C = ATN(1)/45 

25 X = M*4:Y = - M*4:G0SUB1 000 
30 LINE - (127 + XT, 95 + YT), PRESET 
55 GOSUB1000 

60 LINE — (1 27 + XT, 95 + YT),PSET 


30 PLOT 127 + xt,75 + yt 
55 GOSUB 1000 

60 DRAW 1 27 + xt- PEEK 23677, 

75 + yt — PEEK 23678 
76 GOSUB 1000 
80 PLOT 1 27 + xt,75 + yt 
105 GOSUB 1000 
110 DRAW 1 27 + xt- PEEK 23677, 

75 + yt — PEEK 23678 
130 STOP 

KB 

17 AN = 60 
28 GOSUB 1000 
30 XX = 160 + XT:YY = 100 + YT 
55 GOSUB 1000 

60 LINE XX,YY,1 60 + XT,1 00 + YT,1 
65 XX = 1 60 + XT : YY = 1 00 + YT 
78 GOSUB 1000 

80 XX = INT(1 60 + XT):YY = INT(1 00 + YT) 
105 GOSUB 1000 

110 LINE XX,YY,1 60 + XT,1 00 + YT,1 
1 1 5 XX= 1 60 + XT:YY = 1 00 + YT 


Finally, here are the hyperbola changes: 


17 LET an = 60 
28 GOSUB 1000 


IE 

17 AN = 60 
28 GOSUB 1000 
30 POINT 1, 51 2 + XT, 51 2 + YT 
55 GOSUB 1000 


tJj 4 


D 


17 AN = 60 

25 X = A: GOSUB 1000 


30 LINE — (1 27 + XT, 95 + YT), PRESET 
55 GOSUB1000 

60 LINE — (1 27 + XT, 95 + YT),PSET 


You can use the same subroutine (or 
PROCedure) to rotate the parabola. Add it to 
the main program and make the changes given 
below: 


17 LET an = 60 


28 GOSUB 1000 
30 PLOT 127 + xt,80 + yt 
40 FOR t= -1.75 TO 1.75 STEP .05 
55 GOSUB 1000 

60 DRAW 1 27 + xt — PEEK 23677,80 + 
yt— PEEK 23678 
80 STOP 


KB 

1 7 AN = 60 

28 X = M'4:Y = - M*4:GOSUB 1 000 
30 XX = 160 + XT:YY = 100 + YT 
55 GOSUB 1000 

60 LINE XX,YY,1 60 + XT,1 00 + YT,1 
65 XX = 160 + XT:YY = 100 + YT 










60 DRAW 1 TO 51 2 + XT, 512 + YT 
78 GOSUB 1000 
80 POINT 1,INT(512 + XT), 

INT(512 + YT) 

105 GOSUB 1000 

110 DRAW 1 TO 512 + XT,512 + YT 


17 AN = 60 

28 PROCrotate 

30 MOVE XT,YT 

55 PROCrotate 

60 DRAW XT,YT 

80 X = M/C0S(RAD(1 20)): 

Y = M'TAN(RAD(120)) 
82 PROCrotate 
85 MOVE XT,YT 
105 PROCrotate 
110 DRAW XT, YT 
140 END 


l T J< 


ID 


1 7 AN = 60 

25 X = M/C0S( - 60*C):Y = M'TAN 
( — 60*C):GOSUB1000 
30 LINE — (1 27 + XT, 95 +YT), PRESET 
55 GOSUB1000 

60 LINE — (XT + 127,YT + 95),PSET 
75 X = M/C0S(1 35*C):Y = 


M‘TAN(135*C):GOSUB1000 
80 DRAW“BM” + STR$(INT(1 27 + XT)) + 
+ STR$(INT (95 + YT)) 

90 FORTH = 135 TO 240STEP5 
105 GOSUB1000 

110 LINE — (1 27 + XT, 95 + YT),PSET 


PRACTICAL APPLICATIONS 


All these curves can be used in some practical 
way. 

The circle has so many uses that it is 
impossible to list them all. The wheel is an 
obvious example of a circle, and ball bearings 
are an obvious use of a sphere. Spheres, or 
approximations to them, often occur in na- 
ture. Examples range from water droplets to 
peas to planets. But the spheres are very rarely 
perfect due to effects of gravity, wind or other 
forces. A planet revolving round a star could 
move in a circular orbit, although this is more 
likely to be elliptical. 

One useful practical application of the 
circle is in working out the lowest transport 
costs for something that can be bought from 
one of two distribution depots. For example, 
suppose you wanted to buy a computer which 
can be supplied by either of two firms A or B 
which are 300 miles apart. Say firm A sends 
the computers by special carriers at the rate of 
lOp a mile while firm B sends the computers 
by its own van at 5p per mile. It is very 
straightforward to mark out the area on a map 
where it is cheaper to buy from A or B. The 
idea is to mark all points where the two costs 
are equal, and join them up by a line. In this 
case you can afford to have something de- 
livered twice as far from depot B as they only 
charge half as much. So you should mark all 
points where the distance from B is twice the 
distance from A. 

One point is on a line between A and B, 
100 miles from A and 200 miles from B (since 
100 x lOp equals 200 x 5p). Another point is 
on the same line 300 miles from A in the 
opposite direction to B (300 x lOp equals 
600 x 5p). If you join up all these points the 
line traced out is a circle with a radius of 200 
miles as shown in fig. 2. If you live inside the 
circle it is cheaper to buy from A, and if you 
live outside it is cheaper to buy from B. 

The ellipse has practical uses too. If you 
project the shadow of an ellipse on to a flat 
surface then it is possible to hold the ellipse at 
one particular angle where its shadow is a 
perfect circle. The property is made use of in 
valves in circular ducts, where an elliptical 
flap can be used to control air or gas flow. The 
flap fits the pipe exactly when it reaches the 
correct angle and so blocks off the pipe. 

The parabola, of course, describes the 
curve traced out by a projectile (see pages 740 



• The programs in this article have been 
designed to make the best use of the TV 
screen. When you use them in your own 
programs you’ll have to change the mag- 
nification factor M so the curves are drawn 
to the correct size. 

• You must also take care with the rotated 
parabola and hyperbola to make sure that 
the ends of the curves stay within the 
screen. (This doesn’t apply to the Acorns 
as these can ‘draw’ off the screen quite 
happily.) To prevent this, alter the ends of 
the FOR . . . NEXT loops in Line 40 of the 
parabola program and Lines 40 and 90 of 
the hyperbola program. You’ll have to find 
out the exact limits by trial and error. 


to 747). Comets can also travel in a parabolic 
path round the Sun. 

A very useful property of the parabola is 
that rays of light, heat or anything else parallel 
to the axis are reflected through the focus. 
This property works in both directions so an 
electric bulb placed at the focus will produce a 
parallel beam of light, as used in car 
headlights. In the other direction parallel rays 
from the Sun can be concentrated at the focus 
to produce very high temperatures as in a 
solar furnace. 

In practice, the reflectors used for these 
purposes are three-dimensional paraboloids. 
A further use of paraboloids is in radio or 
radar aerial dishes where the aerial element is 
placed at the focus and can be used for both 
transmitting and receiving signals. 

An important feature of the hyperbola is 
that it consists of two parts. And a practical 
use is in a system of radar navigation for ships. 
The system relies on two radar stations. One 
station transmits signals normally, and the 
other simply retransmits signals received 
from the first station. Any ship in the vicinity 
receives both signals and notes the time 
difference in their arrival. If it moves so as to 
keep this time difference constant then it will 
follow a hyperbolic path as shown in fig. 3. If 
the ship also receives signals from two other 
radar stations and again notes the time dif- 
ference this will give a second hyperbola and 
the intersection of the two gives the position 
of the ship. There is no confusion over which 
branch of the hyperbola the ship is on as the 
signal which arrives first can be detected. 

In the next article, you’ll see how to 
program the computer to demonstrate some 
practical uses for conic sections. 
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THE MIDA: 
TOUCH 


It's time to get rich quick. But do 
you invest in new technology before 
exploring? How do you interpret the 
result? And when do you sell? You’ll 
have to be shrewd in Goldmine 


In the first part of this game, you saw how to 
set up the various options available to the 
player— Research and Development, Explor- 
ation and Report, Increasing Mine Depth, 
and Exchanging Gold for Dollars. Now com- 
plete your Goldmine program with the sub- 
routines which handle each of these options. 

Research and Development follows the 
player choosing option 1, Exploration and 
Report is option 2, Increasing Mine Depth is 
option 3, and Exchanging Gold for Dollars is 
option 4. Option 5 is Pass, so no complete 
subroutine is needed. Options 1, 2 and 4 
introduce the elements of randomness needed 
to make the game parallel the real world. 


RESEARCH AND DEVELOPMENT 


1000 BORDER 6: PAPER 6: INK 0: CLS 
1010 PRINT PAPER 1; INK 6; AT 3,4; 
“□RESEARCH & DEVELOPMENTD”; 

AT 4,4;“(to lower mining costs) ” 

1020 PRINT AT 7,6;“ How much would 
you”;TAB 5;“like to invest ? ($)”: INPUT rd 
1 050 LET a(m,4) = a(m,4) - INT (rd',05) - 1 
1 060 IF a(m,4) < 0 TH EN LET a(m,4) = 0 
1080 LET a(m,2) = a(m,2) — rd: LET 
a(m,1) = a(m,1) — rd 

1100 PRINT AT 13,3;“Your mining costs will 
be”;TAB 3;“reduced by $”;INT 
(rd\05) + 1;“Dper 200m” 

1110 FOR z=1 TO 300: NEXT z 
1120 RETURN 

BE 

1000 POKE53280,7:POKE53281,7: 
PRINT“HQ” 

1010 PRINT“|U RESEARCH AND 
DEVELOPMENT”:PRINT“(TO LOWER 
MINING COSTS)” 

1020 PRINT “ 

is HOW MUCH 

WOULD YOU LIKE TO INVEST 
($)”:INPUTRD 
1030 R1=INT(RD\5)-1 
1050 A(M,4) = A(M,4) — R1 
1060 IFA(M,4) < 0THENA(M,4) = 0 
1080 A(M,2) = A(M,2) — RD:A(M,1) 

= A(M,1)-RD 

1100 PRINT“g&BfiBfeJUUU 

YOUR MINING COSTS WILL BE REDUCED 


BY:”:PRINT“$”;R1 +1; 

1110 PRINT “PER 200M”:FORZ = 1 
TO2300:NEXT 
1120 RETURN 

BE 

1000 PRINT” g]Q” 

1010 PRINT“HRESEARCH, 
DEVELOPMENT”:PRINT“!ia 
TO LOWER MINING COSTS” 

1020 RD = 0:PRINT“HSSSSS 

HOW MUCH WOULD YOUD □ □ DLIKE 
TO INVEST ($)”:INPUTRD 
1030 R1=INT(RD*.5)-1 
1050 A(M,4) = A(M,4)-R1 
1060 IFA(M,4) < 0THENA(M,4) = 0 
1080 A(M,2) = A(M,2) — RD:A(M,1 ) 

= A(M,1)-RD 

1100 PRINT“HHSSSYOUR 
MINING COSTS WILL BE REDUCED 
BY:”:PRINT“$”;R1 + 1“PER 200M” 

1110 FORZ = 1 TO2300: N EXT 
1120 RETURN 

a 

1000 COLOUR129:COLOUR2:CLS 
1010 PRINTTAB(8,3)“RESEARCH AND 
DEVELOPMENT”TAB(9,5)“(LOWERS 
MINING COSTS)” 

1020 PRINT'“H0W MUCH WOULD YOU LIKE 
TO INVEST ($)”:INPUTRD 
1050 A(M,4) = A(M,4) — INT(RD\05) 

1060 IF A(M,4)<0 THEN A(M,4) = 0 
1 080 A(M,2) = A(M,2) - RD:A(M,1 ) 

= A(M,1)-RD 

1100 PRINTTAB(0,13)“YOUR MINING COSTS 
WILL BE REDUCED BY □ □ □ □ □$”; 
INT(RD*.05);“DPER 200m” 

1110 FOR Z— 1 TO 4000: NEXT 
1120 RETURN 


ES 


1000 CLS 

1010 PRINT@3, “research and 
development”:PRINT@35,“(TO 
LOWER MINING COSTS)” 

1020 PRINT:INPUT“HOW MUCH WOULD YOU 
LIKE TOD □ □ □ □□INVEST ($)”;RD 
1030 IF RD<0 THEN 1000 
1 050 A(M,3) = A(M,3) - INT(RD/20) - 1 
1060 IF A(M,3) <0 THEN A(M,3) = 0 


1080 A(M,1) = A(M,1)-RD:A(M,0) 

= A(M,0) — RD 

1100 PRINT@257,“YOUR MINING 
COSTS WILL BED □□□□□□ 
REDUCED BY $”;INT(RD/20) -hi; 

“PER 200m” 

1110 F0RZ = 1TO2000:NEXT 
1120 RETURN 

In the Spectrum, Commodore 64 and Acorn 
programs, Line 1000 sets up the screen 
colours and clears the screen. In the Vic 20 
and Dragon/Tandy programs, the screen 
colour remains the same and the display is 
simply cleared. Line 1010 prints up the 
heading on the screen, before Line 1020 asks 
the player how much money should be 
invested — RD (rd in the Spectrum program) is 
the amount chosen. 

Line 1050 decreases the mining cost an 
amount related to the amount of money spent 
on research and development. Line 1060 
makes sure the mining costs do not become 
negative. Line 1080 adjusts the cash assets 
and total assets to take account of the amount 
invested in R & D. 

The amount by which mining costs have 
been reduced is displayed by Line 1 100 (and 
Line 1110, in the case of the Commodores). 
Line 1110 contains a FOR ... NEXT loop to put 
in a short delay before the subroutine ends. 


EXPLORATION AND REPORT 


2000 PAPER 4: BORDER 4: INK 0: CLS 
2030 LET r(m) = 0: LET c(m,1) = INT 
(RND'90) + 10: LET c(m,2) = INT 
((RND*5) + 2)*200: LET c(m,3) = INT 
(RND'200) + 1: LET 11 = INT (RND*3) — 1 
2050 LET c(m,4) = c(m,2) + 11*200 
2070 LET c(m,5) = 0: LET kk = INT (RND* 
100): IF kk<c(m,1) THEN LET c(m,5) = 1 
2080 PRINT PAPER 6; INK 0;AT 2,6;“ □ 
SCIENTIFIC REPORTD”: PRINTAT 5,5; 
“Chance of gold = □”;c(m,1 );“%”: 

PRINT AT 7,5;“ Expected Depth = □”; 
c(m,2);“m”: PRINT AT 9,5;“Expected 
amount = □”;c(m,3);“kg” 

2100 LET z=INT (RND*150000): LET a(m,2) 
= a(m,2)— z: LET a(m,1) = a(m,1) — z 
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■ 

ADDING THE VITAL 

■ 

REPORT ON THE MINE 


SUBROUTINES 

■ 

SINKING THE MINE 

■ 

RESEARCH AND DEVELOP NEW 

■ 

CONTINUING EXCAVATION 


MINING METHODS 

■ 

SETTING UP THE GRAPHICS 

■ 

EXPLORING NEW MINES 

■ 

GET RICH! 
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28 [GAMES PROGRAMMINdl 28 


2110 PRINT FLASH 1;AT 12,0;“Would you like 
to mine? (y or n)” 

2120 LET r$ = INKEY$: IF r$ = “” THEN 
GOTO 2120 

2130 IF r$ = “y” THEN LET a(m,6) = 0: LET 
r(m) = 1: GOTO 3000 
2500 RETURN 


2000 POKE53280,5:POKE53281,5: 

PRINT'D H”; 

2030 R(M) = 0:C(M,1) = INT(RND(1)*90) + 
1 0:C(M,2) = INT((RND(1 )*5) 4- 2)*200 

2031 C(M,3) = INT(RND(1)'200) + 1: 

LL = INT(RND(1 )*3) — 1 

2050 C(M,4) = C(M,2) + LL‘200 
2070 C(M,5) = 0:KK = INT(RND(1)* 

1 00):IFKK < C(M,1 )THENC(M.5) = 1 

2080 PRINT“!ldS£]fcJIJUUU 

U □ SCIENTIFIC REPORTED” 

2081 print SHHUfelUUU 

CHANCE OF G0LD = ”;C(M,1)“%” 

2082 PRINT” B H U fel U U U 
EXPECTED DEPTH = ”;C(M,2);“M” 

2083 print“h suuuuu 

EXPECTED AM0UNT”;C(M,3) “KG” 

2100 Z = INT(RND(1)‘150000):A(M,2) 

= A(M,2) — Z:A(M,1) =A(M,1)— Z 
2110 PRINT'S M H 3W0ULD YOU LIKE 
TO MINE (Y OR N)?” 

2120 GETR$:IFR$< >“Y”ANDR$< > 
“N”THEN21 20 

2130 IFR$ = “Y”THENA(M,6) = 0:R(M) 

= 1:GOTO3000 
2500 RETURN 


2000 PRINT'Q H” 

2030 R(M) = 0:C(M,1 ) = INT(RND(1)’90) 

+ 10:C(M,2) = INT((gND(1)'5) + 2) *200 

2031 C(M,3) = INT(RND(1 )*200) + 1 : 

LL= INT(RND(1 )*3) — 1 

2050 C(M,4) = C(M,2) + LL‘200 
2070 C(M,5) = 0:KK = INT(RND(1)‘ 

1 00):IFKK < C(M,1 )THENC(M,5) = 1 

2080 PRINT'S 3 U U SCIENTIFIC REPORT” 

2081 PRINT'S BSSCHANCE OF 
G0LD = ”;C(M,1)“%” 

2082 PRINT'SHEXPECTED DEPTH 
= ”;C(M,2);“M” 

2083 PRINT'SHEXPECTED AMOUNT”; 
C(M,3)“KG” 

21 00 Z=INT(RND(1)*150000):A(M,2) 

= A(M,2) — Z:A(M,1 ) = A(M,1 ) — Z 
2110 PRINT'S SHUWOULD YOU LIKE TO 
MINEUUUIIUUU(Y OR n)?” 
2120 GETR$:IFR$< >“Y”ANDR$< > 
“N”THEN2120 

2130 IFRS = “Y”THENA(M,6) = 0:R(M) 

= 1:GOTO3000 
2500 RETURN 
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2000 C0L0UR1 29:COLOUR3:CLS 
2030 R(M) = 0:C(M,1 ) = RND(90) + 9: 
C(M,2) = RND(5)*200 + 400:C(M,3) 

= RND(200):LL = RND(3) — 2 
2050 C(M,4) = C(M,2) + LL*200 
2070 C(M,5) = 0:KK = RND(100):IF 
KK<C(M,1) THEN C(M,5) = 1 
2080 PRINTTAB(10,3)“SCIENTIFIC 
REP0RT”TAB(1 0,1 0)“CHANCE OF 
GOLD = □ ”;C(M,1 );“%”TAB(1 0,1 2) 
“EXPECTED DEPTH = □”;C(M,2); 
“m”TAB(10,14)“EXPECTED 
AMOUNT = □”;C(M,3);“KG” 

2100 Z = RND(150000):A(M,2) = 

A(M,2) — Z:A(M,1 ) = A(M,1 ) — Z 
2110 PRINTTAB(5,20)“WOULD YOU LIKE TO 
MINE (Y/N)?” 

2120 R$ = GET$ 

2130 IF R$ = “Y” THEN A(M,6) = 0: 

R(M) = 1:G0T0 3000 
2500 RETURN 


E2 


2000 CLS 

2030 R(M) = 0:C(M,0) = RND(90) + 9: 
C(M,1) = (RND(5) + 1)*200:C(M,2) 

= RND{200):LL = RND(3) — 2 
2050 C(M,3) = C(M,1 ) + LL'200 
2070 C(M,4) = 0:KK = RND(1 00) - 1 : 

IF KK<C(M,0) THEN C(M,4) = 1 
2080 PRINT@6, “scientific report”: 
PRINT@1 29, “CHANCE OF G0LD = ”; 
C(M,0);“%”:PRINT@193, 

“EXPECTED DEPTH = ”;C(M,1); 
“m”:PRINT@257, “EXPECTED 
AMOUNT = ”;C(M,2);“kg” 

21 00 Z= RND(1 50000) - 1 :A(M,1 ) = 
A(M,1 ) — Z:A(M,0) = A(M,0) — Z 
2110 PRINT@353, “WOULD YOU LIKE TO 
MINE (Y/N) ?” 

2120 R$ = INKEY$:IF R$< >“Y” AND 
R$< >“N” THEN 2120 
2130 IF R$ = “Y” THEN A(M,5) = 0: 

R(M) = 1:GOTO3000 
2500 RETURN 


All machines clear the screen in Line 2000 . 
The Spectrum, Commodore 64, and Acorn 
programs also change the screen colours. Line 
2030 sets R(M) (r(m), in the case of the 
Spectrum) to zero to indicate that excavation 
hasn’t yet started. The line also chooses the 
chance of finding gold, expected depth and 
the expected amount. LL (or II) is a random 
number between — 1 and 1 which is used in 
the next line to determine the actual depth of 
the gold — remember, the value in C(M,2) is 
just an expected depth. 

Line 2050 sets C(M,4) equal to the value of 
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C(M,2) plus or minus 200 metres — 200 times 
LL. Next, Line 2070 decides if the mine 
actually contains any gold. C(M,5) is set to 
zero to indicate there’s no gold. KK is a 
random number between zero and 99. KK is 
compared with the chance of finding gold — if 
KK is less, then C(M,5) is set to one to indicate 
that there is gold in the mine. 

Line 2080 presents the player with the 
Scientific Report on the mine — the Commo- 
dores use Lines 2080 to 2083. Although the 
player is told what chance there is of finding 
gold and the expected depth, whether it is 
actually there or not is controlled by the 
various random factors. So you need to use 
your judgement about whether the invest- 
ment is worthwhile. 

Now for the bad news: the report has to be 
paid for. It’s impossible to predict how much 
the report will cost, but it may cost anything 
between nothing and $150,000— the value of 
Z chosen in Line 2100. The cost of the 
exploration and report is subtracted from the 
cash assets and this deduction appears in the 
total assets. 

Now the player is given the opportunity to 
start excavations— Line 2110 asks WOULD 
YOU LIKE TO MINE? If the answer is yes, 
then the program jumps to the mining routine 
starting at Line 3000. 


EXCAVATION 


3000 BORDER 6: PAPER 6: INK 1: CLS 

3010 IF r(m) = 0 THEN PRINT FLASH 1;AT 
9,2;“You have not explored yet!”: FOR z = 1 
TO 10: BEEP .3,-10: NEXT z: RETURN 

3020 BORDER 5: INK 0: PAPER 4: CLS 

3022 PRINT PAPER 5;TAB 14;CHR$ 147;CHR$ 
148;CHR$ 149;TAB 14;CHR$ 150;CHR$ 

1 51 ;CHR$ 152;CHR$ 153;TAB 13;CHR$ 
154;CHR$ 155;CHR$ 156;CHR$ 157;CHR$ 
1 58;TAB 31;CHR$ 32 

3025 FOR z = 1 TO 32: PRINT CHR$ 144;: 
NEXT z 

3060 PRINT AT 4,0;: FOR z = 100 TO 1400 
STEP 100: PRINT TAB 4-LEN STR$z;z: 
NEXT z 

3090 LET a(m,2) = a(m,2) — a(m,4): LET 
a(m,1) = a(m,1) — a(m,4): LET 
a(m,6) = a(m,6) + 200: PAUSE 30 

3100 PRINT AT 3,1 5;CHR$ 146: FOR f=4 TO 
(a(m,6)/100) + 3: PRINT AT f,15;CHR$ 

145: FOR w = 1 TO 10: BEEP .01,-20: 
NEXT w: NEXT f 

31 20 IF a(m,6) = c(m,4) AND c(m,5) = 1 
THEN GOTO 3500 

3130 PRINT FLASH 1; PAPER 5;AT 6,18;“No 
gold yet!”: IF a(m,6) = c(m,2) + 200 THEN 
PRINT FLASH 1; PAPER 1; INK 6;AT 


18,0;“This mine doesn’t contain any gold. 

Try starting another one.”: FOR z = 1 TO 10: 
BEEP .5,-20: NEXT z: LETa(m,6)=0: 

LET r(m) = 0 
3140 PAUSE 150 
3300 RETURN 

3500 PRINT PAPER 6; INK 2; FLASH 1;AT 
f,12;“G 0 L D”: FOR z= -20 TO 50: 

BEEP .01 7, z: NEXT z: PAUSE 75 
3550 LET a(m,5) = a(m,5) + 1: LET 
a(m,3) = a(m,3) + c(m,3): LET 
a(m,1 ) = a(m,1 ) + (a(m,3)‘er) : 

LET a(m,6) = 0: LET r(m) = 0: GOTO 3300 

sa 

3000 POKE53280,7:POKE53281,7 

3010 IFR(M) < >0THEN3020 

3011 PRiNT'aaBBBBBBBB 

fcJUfcJd l have not explored 

YETI”: F0RZ = 1 TO2300: N EXT: R ETUR N 
3020 POKE53280,3:POKE53281 ,5: 
PRINTED” 

3022 PRINTTAB(14);“HC0”:PRINT 
TAB(1 4);“ 1X1] □ □ ”:PRINTTAB 

(13);“QD|g0n” 

3025 FORZ = 0TO39:PRINT“§fl”;:NEXT 
3060 PRINT” @ a a H a H II ”;: 

F0RZ = 1 00TO1 400STEP1 00:PRINT 
TAB(5 — LEN(STR$(Z)));Z:NEXT 
3090 A(M,2) = A(M,2)-A(M,4):A(M,1) = 
A(M,1 ) - A(M,4):A(M,6) = A(M,6) + 200 
3095 FORF = 0TO90:NEXT 

3100 print“@ a® a an u uuu 

UUUUUUUUUUB 

3101 print nuukjuuuuu 
uuuuuuum 

3102 F0RF = 2T0 A(M,6)/100:PRINT 

UUUUUUUUUUU 

uuuum 

3104 POKE54272,33:POKE54273,33: 
POKE54277,15:POKE54296,15 

3105 POKE54276.1 29:FORZ = 1 TO240: NEXT 
3110 N EXT : P0 KE54296,0 

3120 IFA(M,6) = C(M,4)ANDC(M,5) 

= 1THEN 3500 

3130 PRINT" ^ S S 

.*,1 jJJJ Cfl . .4 .*vt Ail . .1 

aaauuuuuuuuu 

NO GOLD YET!!!” 

3131 IFA(M,6) < > C(M,2) + 200THEN 3140 

3132 PRINT’UUHTHIS MINE DOESN’T 
CONTAIN ANY GOLD. TRYD ^STARTING 
ANOTHER ONE.” 

3134 A(M,6) = 0:R(M) = 0 
3140 FORF=1TO2500:NEXT 
3300 RETURN 

3500 PRINT “@aaH”:F0RZ = 1 
TOA(M,6)/100:PRINT:NEXT 
3505 PRINT U U U U U U UIIU 

UligaDGDODLDOD” 

351 0 F0RF = 54272T054296: POKEF,0: N EXT 


3520 POKE54284,1 5:POKE54283,1 7: 

POKE54296,14 
3530 F0RF = 64T01 24 
3540 POKE54280,F: F0RG = 1TO20: 
NEXTNEXT 

3550 F0RF = 1 24T064STEP — 1 : POKE 
54280, F:F0RG = 1TO20: NEXT: NEXT 
3560 POKE54296,0 

3570 A(M,5) = A(M,5) + 1 :A(M,3) = A(M,3) 
+ C(M,3):A(M,1 ) = A(M,1 ) + A(M,3)'ER 
3580 A(M,6) = 0:R(M) = 0:GOTO3300 

BE 

3000 POKE 36879,25 

3010 IFR(M)< >0THEN3020 

3011 PRiNT“Qaaaaaaaaa 

aYOU HAVE NOT EXPLORED YET!”: 
FORZ = 1TO2300:NEXT:RETURN 
3020 PRINT“G!ia” 

3022 PRINTTAB(14);“ 
PRINTTAB(14);“aafflDBBn” 
3025 F0RZZ = 1 T01 5:F0RZ = 0TO20: 

PRINT“fl □”;:NEXT:PRINT:NEXT 
3060 PRINT“@aHMaa”vF0R Z = 

1 00TO1 400STEP1 00: PRINT" S ”Z: NEXT 
3090 A(M,2) = A(M,2) - A(M,4):A(M,1 ) 

= A(M,1) - A(M,4):A(M,6) = A(M,6) 

+ 200 

3095 FORF = 0TO90:NEXT 

3100 PRINT“@aaBB”SPC(15) 

“SO]” 

3102 F0RF = 2T0 A(M,6)/100:PRINT 
SPC(15)“SQ]”:P0KE 36877,128+ F'3 
31 04 F0RDE = 5T01 5STEP.3:POKE36878, 
DE:NEXT:POKE36877,0 
3110 NEXT 

3120 IFA(M,6) = C(M,4)ANDC(M,5) 

= 1THEN 3500 

3130 PRiNT'aaaaaaa 

C2J «*Ci ^Ci 

aa^UUUUNO gold yetih” 

3131 IFA(M,6) < > C(M,2) + 200THEN3140 

3132 PRINT'D U UTHIS MINE 
DOESN’TIH □□CONTAIN ANY GOLD. 
TRYDnSTARTING ANOTHER ONE.” 

3134 A(M,6) = 0:R(M) = 0 
3140 FO R F = 1 TO3000: N EXT 
3300 RETURN 

3500 PRINT “@aB”:( : 0RZ = 1T0 
A(M,6)/1 00: PRINT:NEXT 
3505 PRINT' UUUUUUUUU 
IHJliaDGDOaLDDD” 

3508 FORDE = 250TO1 27STEP — 1 :P0KE 
36876, DE:NEXT 
3510 FORG = 1TO2000:NEXT 
3570 A(M,5) = A(M,5) + 1 :A(M,3) = A(M,3) 

+ C(M,3):A(M,1 ) = A(M,1 ) + A(M,3)*ER 
3580 A(M,6) = 0:R(M) = 0:GOTO3300 

B 

3000 COLOUR130:COLOUR0:CLS 
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3010 IF R(M) = 0 THEN PRINTTAB(6,1 2) 

“YOU HAVE NOT EXPLORED YET!”:FORZ = 
1 TO 1 0:SOUND1 , — 1 5,1 00,1 :SOUND1 ,0, 
1,1:NEXT:Z = INKEY(300):RETURN 
3020 CLS 

3022 VDU 31,16,3,224,225,226,31,16,4,227, 
228,229,230,31 ,1 5,5,231 ,232,233, 234,235 
3025 PRINT:FOR Z=1 TO 40:VDU236:NEXT 
3060 PRINT:FOR Z = 100 TO 1400 STEP 
100:PRINTTAB(4 — LENSTR$Z);Z:NEXT 
3090 A(M,2) = A(M,2)-A(M,4):A(M,1) 

= A(M,1 ) - A(M,4):A(M,6) = A(M,6) + 
200:Z = INKEY(60) 

3100 VDU31 ,1 7,6,238:FOR F = 7TO 
(A(M,6)/1 00) + 7:VDU31 ,1 7,F - 1 ,237: 

FOR Z = 1 TO 13: SOUND0,- 15,6,1: 
SOUND0,0,0,1:NEXT:SOUND16,0,0,1:NEXT 
31 20 IF A(M,6) = C(M,4) AND C(M,5) 

= 1 THEN 3500 
3125 COLOUR1 

3130 PRINTTAB(20,10)“NO GOLD YET!”:IF 
A(M,6) = C(M,2) + 200 THEN COLOUR3: 
PRINTTAB(0,29)”THIS MINE DOESN’T 
CONTAIN ANY GOLD. TRY STARTING 
ANOTHER ONE.”:A(M,6) = 0:R(M) =0 
3140 FOR Z=1 TO 4000:NEXT 
3300 RETURN 

3500 COLOUR1 :PRINTTAB(1 4,F)“G □ 0 □ L 
□ D”:FOR Z = 0 TO 250 STEP 10: 

SOUND1 , — 1 5,Z,1 :NEXT:Z = INKEY (150) 
3550 A(M,5) = A(M,5) + 1 :A(M,3) = 

A(M,3) + C(M,3):A(M,1 ) = A(M,1 )+ (A(M, 
3)'ER):A(M,6) = 0:R(M) = 0:GOTO 3300 


IQ 


3000 CLS 

3010 IF R(M) = 0 THEN PRINT@66,“YOU 
HAVE NOT EXPLORED YET !”;:FORZ = 1 
TOI 0:SOUND1 20,1 :NEXT:RETURN 
3015 IF A(M,5) >0 THEN LINE(140,40) 

- (157,1 91), PRESET, BF:GOTO3090 
3020 PCLS:SCREEN1,0:COLOR3:LINE 
(0,0) — (255,31 ),PSET,BF 
3022 PUT(1 31 ,8) — (1 68,31 ),H,PSET 
3025 FORZ = 0TO 31: PUT(Z*8,32) — 

(Z*8 + 7,34),T,PSET : N EXT 
3060 FORZ = 1 00 TO 1400 STEP 100: 

Z$ = STR$(Z) + “ - ”:DRAW“C4S8BM” 
+ STR$(49 - 8'LEN(Z$)) + + STR$ 

(32 + 1 07/1 00) :GOSUB9000:NEXT 
3090 SCREEN1 ,0:A(M,1 ) = A(M,1 ) — 
A(M,3):A(M,0) = A(M,0) — A(M,4): 
A(M,5) = A(M,5) + 200 
31 00 PUT(1 45,32) - (1 52,39), D.PSET: 

FORF = 4TO(A(M,5)/1 00) + 3:PUT(1 45, 
F*10) — (152,F'10 + 9),B,PSET: 
PLAY“T50O1 BDBDEBDBDE”:NEXT 
3120 IF A(M,5) = C(M,3) AND C(M,4) 

= 1 THEN 3500 
3125 FORZ = 1 TOI 000: N EXT 
3130 PRINT@40,“ NO GOLD YET ! 


IF A(M,5) = C(M,1) + 200 THEN 
PRINT@128,“ THIS MINE DOESN’T 
CONTAIN ANYDDDGOLD.DTRY 
STARTING ANOTHER ONE.D”;:PLAY 
“T50O3CDEFG”:A(M,5) = 0: R(M) = 0 
3140 FORZ = 1 TO2500:NEXT 
3300 RETURN 

3500 F = 40 + A(M,5)/10:COLOR2:LINE 
(1 40, F) — (1 57, F + 5),PSET,BF 
351 0 FORZ = 1 TOI 0:PLAY“T5O2CA”:PUT 
(140,F) — (157,F + 5),H,NOT:NEXT 
3520 FO RZ = 1 TO2000: N EXT 
3550 A(M,4) = A(M,4) + 1 :A(M,2) = A(M,2) 

+ C(M,2):A(M,0) = A(M,0) + (A(M,2) 
*ER):A(M,5) = 0:R(M) = 0:GOTO3300 

This routine is called from two places within 
the program. As you have already seen, you 
are given the option of mining from within 
the Exploration and Report subroutine, but it 
is also used when you opt to increase the mine 
depth by 200 metres — choice 3 on the list. 

As usual, the first line in the routine simply 
clears the screen, or sets up the screen colours 
and clears the screen. Line 3010 checks that 
the exploration phase has been completed 
before excavation can begin. In the case of the 
Commodores, Lines 3010 and 301 1 check for 
exploration and display the appropriate mes- 
sage. Line 3020 prepares the screen for the 
display again. 

Lines 3022 to 3090 display the graphics 
which show the goldmine on screen. Line 
3100 illustrates the excavation and makes 
some sound effects. The Commodore 
programs use Lines 3100 to 31 10 to show the 
excavation and make the sound effects. 

Line 3120 checks if the excavation has 
reached the level of the gold, and that there is 
gold in the mine (it’s possible to reach the 
expected level of the gold, only to find that 
there is none after all in the mine). If gold has 
been reached, the program jumps to Line 
35# which tells the player that gold has been 
discovered, and plays a tune — the Commo- 
dore programs, again, spread the commands 
across more than one line. Line 3550 adjusts 
the value of the player’s assets, according to 
the value of the discovered gold. 

If no gold has been discovered, the 
program continues to Line 3130. If the 
excavation has passed the expected gold level 
by 200 metres, the player is told that the mine 
has no gold. If the excavation hasn’t got that 
far, the player is told NO GOLD YET! 


4000 PAPER 6: INK 1: BORDER 6: CLS 
4020 PRINT INVERSE 1;AT 2,7;“DEXCHANGE 
AGENCYD”:PRINT AT 6,0;“The current 
exchange rate is:— ”;AT 8,5;“1 kg of 


gold = □$”;er;AT 12,2;“Enter no. of kg to 
exchange”: INPUT nte 

4070 IF nte > a(m,3) THEN PRINT FLASH 1;AT 
16,0;“You do not have that much gold!” 
4080 LET nte = I NT nte 
4090 IF nte>a(m,3) OR nte <0 THEN GOTO 
4020 

4095 PRINT AT 16,0;CHR$ 32;TAB 31;CHR$32 
4100 LET a(m,3) = a(m,3)-nte: LET 
a(m,2) = a(m,2) + (nte‘er): LET 
a(m,1) = a(m,1) + (nte*er) 

4130 PRINT PAPER 5;AT 16,1;nte;“kg 
exchanged forD$”;nte*er: PAUSE 170: 
RETURN 
5000 RETURN 


BE 


4000 POKE53280,7:POKE53281,7: 

PRINT“aa” 

4020 PRiNT“DnnnnnHHa 

□ EXCHANGE AGENCYD” 

4030 PRINT“HHSHTHE CURRENT 
EXCHANGE RATE IS:-” 

4040 PRINT:PRINT“UUI|1 KG OF 
G0LD = $”ER 

4050 PRINT:PRINT:PRINT“ENTER NO. OF KG 
TO EXCHANGE”:INPUT NT 
4060 IFNT>A(M,3)THENPRINT“flY0U DO 
NOT HAVE THAT AMOUNT OF GOLD!!!!!” 
4070 NT = INT(NT) 

4090 IFNTE > A(M,3)0RNTE < 0THEN 4020 
41 00 A(M,3) = A(M,3) - NT:A(M,2) = A(M,2) 
+ (NT'ER) :A(M,1 ) = A(M,1 ) + (NT'ER) 
4130 PRINT“11”NT“KG EXCHANGED FOR $ 
”NT'ER:FORF = 1TO2000:NEXT:RETURN 

BB 

4000 PRINT“QH” 

4020 PRINT“H H □ □ □ EXCHANGE 

AGENCYD □□□” 

4030 PRINT“HSTHE CURRENT 
EXCHANGED □ RATE IS:-” 

4040 PRINT:PRINT“1 KG = $”ER 
4050 PRINT:PRINT“HENTER N0.0F KG 
TO □ □ □ □ EXCHANG E”: I N PUTNT 
4060 IFNT>A(M,3)THENPRINT“gJY0U DO 
NOT HAVE THAT AMOUNT OF 
G0LDD!D!D!DD” 

4070 NT = INT(NT) 

4090 IFNTE > A(M,3)0RNTE < 0THEN4020 
41 00 A(M,3) = A(M,3) - NT:A(M,2) = A(M,2) 
+ (NT* ER):A(M,1 ) = A(M,1 ) + (NT'ER) 
4130 PRINT“ti”NT“KG EXCHANGED FOR”: 
PRINT“U$”NT*ER:FORF = 1TO2000: 
NEXT:RETURN 


4000 CLS 

4020 PRINTTAB(1 2,3)“EXCHANGE 
AGENCY”TAB(5,10) “THE CURRENT 
EXCHANGE RATE IS:— ”TAB(5,1 2) “1 
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OF GOLDD = □$”;ER;:INPUT "“ENTER 
NO. OF kg TO EXCHANGE”, NTE 
4070 NTE = INT(NTE) 

4080 IF NTE > A(M,3) THEN PRINT"“YOU 
DON’T HAVE THAT MUCH GOLD!” 

4090 IF NTE> A(M,3)OR NTE <0 THEN 
PRINTTAB(28,14)SPC(10):GOTO 4020 
4095 VDU1 1 :PRINTSPC(39) 

4100 A(M,3) = A(M,3) - NTE:A(M,2) =A(M,2) 
+ (NTE*ER):A(M,1 ) = A(M,1 ) + (NTE'ER) 
4130 PRINT";NTE“kg EXCHANGEDDFORD$”; 

NTE‘ER;SPC(20):Z = INKEY(340): RETURN 
5000 RETURN 


E5 


4000 CLS 

4020 PRINT@7, “exchange agency”: 
PRINT@128,“THE CURRENT EXCHANGE 
RATE IS:— ”:PRINT@197,“1KG OF 
GOLD = ”;ER:PRINT@288, “ENTER NO. OF 
KG TO EXCHANGE”;:INPUT NT 
4080 NT = INT(NT) 

4090 IF NT>A(M,2) OR NT <0 THEN 4020 
4100 A(M,2) = A(M,2) - NT:A(M,1 ) = A(M,1 ) 
+ (NT*ER):A(M,0) = A(M,0) + (NT 1 ER) 
4130 PRINT@448,NT;“KG EXCHANGED FOR”; 

NT’ER:FORZ = 1TO1000:NEXT:RETURN 
5000 RETURN 

. i . 


Line 4000 sets up the program. 

Line 4020 PRINTs the title of the screen, 
the current exchange rate, and prompts for 
the number of kilograms to be exchanged — 
the Commodores use Lines 4020 to 4050. In 
all the programs except the Dragon/Tandy, 
Line 4070 checks if there is sufficient gold 
held. Line 4080 ensures the amount of gold 
exchanged is a whole number. 

Line 4090 sends the program back to the 
prompt if the amount exchanged is more than 
that being held, or less than zero. Line 4100 
adjusts the assets according to the amount of 
gold that’s been exchanged. 

The subroutine tells the player how much 
gold has been exchanged for what amount in 
dollars, in Line 4130. Line 5000 in the Spec- 
trum and Acorn programs is the pass option. 


FINISHING TOUCHES 



1 FOR n = USR“a” TO USR “o” + 7: 

READ a: POKE n,a: NEXT n 
7000 PAPER 5: INK 0: BORDER 5: CLS 
7010 PRINT AT 9,12;a$(m): PRINT AT 
10,8;“has gone bust!”: PRINT FLASH 1;AT 
20,1; “□ Press any key to play again □” 


7030 PAUSE 0: RUN 5 
8000 DATA 255,85,170,0,0,0,0,0,62,28, 
56,126,28,62,120,28 
8010 DATA 255,255,62,126,127,60,124, 
126,0,0,0,0,1,1,1,1 

8020 DATA 7,29,49,45,255,255,91,126, 
128,96,48,80,152,140,252,138 
8030 DATA 1,1,1,49,49,49,49,255,122, 
187,62,95,153,255,153,126 
8040 DATA 209,177,224,128,128,128,128, 
128,0,0,128,128,64,32,32,16 
8050 DATA 1,3,7,7,4,4,7,7,255,255,255, 
255,149,149,159,159 
8060 DATA 24,126,153,255,126,153,126, 
21 9,1 28,1 92,224,240, 248,1 68,248,255 
8070 DATA 16,8,8,4,14,31,31,255 

E0 

7000 POKE53280,3:POKE53281,3: 
PRINT“nH” 

7010 PRINT” hbhhhhH 

HH”TAB(16);A$(M):PRINTTAB 
(12)“ a 3 HAS GONE BUST!!!” 

7015 FORZ = 1TO1000:NEXT 
7020 PRINTTAB(6);“HHHPRESS ANY 
KEY TO PLAY AGAIN” 

7030 POKE1 98,0:WAIT1 98,1 :RUN5 
60000 POKE56334,0:POKE1 ,35 










60010 FORF = 0TO2047:POKE1 2288 + 
F,PEEK(53248 + F):NEXT 
60020 POKE1 ,39:POKE56334,1 
60030 SP = 12808 
60040 READA:IFA= — 1THEN60070 
60050 POKE$P,A 
60060 SP = SP + 1 :GOTO60040 
60070 RETURN 

60080 DATA255, 85, 170,0,0,0,0,0, 
62,28,56,126,28,62,120,28 
60090 DATA255, 255, 62,1 26,1 27,60, 

124.126.0. 0.0.0.1.1.1.1 
60100 DATA7,29,49,45,255,255,91 , 

126,128,96,48,80,152,140,252,138 
60110 DATA1 ,1,1 ,49,49,49,49,255, 
122,187,62,95,153,255,153,126 
601 20 DATA209,1 77,224,1 28,1 28,1 28, 

128.128.0. 0.128.128.64.32.32.16 
601 30 DATA1 ,3,7,7,4,4,7,7,255,255, 

255,255,149,149,159,159 
601 40 DATA24,1 26,1 53,255,1 26,1 53, 
126,219,128,192,224,240,248,168, 
248,255 

601 50 DATA1 6, 8, 8, 4,1 4,31 ,31 ,255, - 1 

BE 

7000 PRINT'D ■” 

7010 PRINT“HBHSSSS 


HS”TAB(6);A$(M):PRINT“UU 
aa HAS GONE BUST!!!” 

7015 FOR Z = 1TO1000:NEXT 
7020 PRINT'S M Ifl 3 PRESS ANY KEY TO 
PLAY” 

7030 POKE1 98,0:WAIT1 98,1 : RUN 

B 

7000 CLS 

7010 PRINTTAB(1 0,1 0)A$(M)“ □ HAS 
GONE BUST”TAB(0,29)“PRESS ANY 
KEY TO PLAY AGAIN” 

7030 Z = GET-RUN 
8000 DATA 0,0, 0,0,1 ,1,1,1 
8010 DATA 7,29,49,45,255,255,91,126, 
128,96,48,80,152,140,252,138 
8020 DATA 1,1,1,49,49,49,49,255,122, 

187.62.95.153.255.153.126 

8030 DATA 209,177,224,128,128,128,128, 

128.0. 0.128.128.64.32.32.16 

8040 DATA 1,3,7,7,4,4,7,7,255,255,255, 
255,149,149,159,159 
8050 DATA 24,126,153,255,126,153,126, 

21 9,1 28,1 92,224,240,248,1 68,248,255 
8060 DATA 16,8,8,4,14,31,31,255,255,85, 

170.0. 0.0.0.0 

8070 DATA 62,28,56,126,28,62,120,28, 

255.255.62.126.127.60.124.126 


ES 


7000 CLS 

7010 PRINT@76,A$(M):PRINT@168,“HAS 
GONE BUST !”:PRINT@449, “PRESS ANY 
KEY TO PLAY AGAIN” 

7020 IF INKEY$ = “” THEN 7020 ELSE RUN 
9000 FOR K = 1 TO LEN(Z$) 

9010 B$ = MID$(Z$,K,1) 

9020 IF B$> =“0” AND B$< =“9” THEN 
DRAW NU$(VAL(B$)):GOTO 9050 
9030 IF B$ = “ — ” THEN DRAW“BF2R4” 
9050 NEXT 
9060 RETURN 

Lines 7000 to 7030 are an ‘another go?’ 
routine. 

In the Spectrum and Acorn programs, 
Lines 8000 to 8070 are the DATA for the 
UDGs. The Commodore 64 program uses 
Lines 60000 to 60150 to POKE the DATA for 
the UDGs. The Acorn program has the UDG 
DATA from Lines 8000 to 8070. The 
Dragon/Tandy program uses Lines 9000 to 
9060 to draw the depth along the left hand 
side of the mining display screen. 

Now you can amass your vast fortune and 
buy those things you always promised 
yourself! 
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COMMODORE 
HI-RES GRAPHIC 


Now that you’ve got your 
Commodore into @HIRES mode 
try adding these commands to 
extend its limited graphics 
capabilities 


In the first part of this article (see pages 748 to 
751), you saw how to set up the main routine 
for a machine code program that would add 
graphics commands to the Commodore 64’s 
BASIC. At that time, only two of the graphics 
commands were covered, though — @HIRES 
and ©COLOUR. 

In this part, find out how to add the 
subroutines which handle nine more graphics 
commands. And in part three, a further eleven 
will be covered. 


PARAMETERS 


Of course, these new instructions that you are 
adding to your Commodore’s BASIC don’t 
only work with the programs given in 
INPUT. You can use them in your own 
programs as well. But to do that you have to 
know about the parameters which follow the 
commands. 


LDA #$C8 
STA $D016 


JMP $CA47 


As this command simply undoes what several 
of the other graphics commands do, it does 
not require any parameters. 


CHARACTER SET 


The @CSET command allows you to choose 
the character set you want to use. When 
@CSET is followed by 0, it selects the capital 
letters and graphics character set. And @CSET 
1 selects the upper and lower case letters set. 

@CSET followed by a 2 recalls the last 
graphics screen that was shown. Be careful 
with this command though. If the last 
graphics screen displayed used the multi- 
coloured mode, you have to follow @CSET 2 
with the command @MULTI with the same 
parameters that were used before. 


In the first part of this article the com- 
mands ©HIRES and ©COLOUR were intro- 

ORG 

49568 

LDA 

#$3B 

duced. ©HIRES moves your Commodore into 

JSR 

$B79B 

STA 

$D011 

high resolution mode and needs to be fol- 

TXA 


LDA 

$D018 

lowed by two parameters. The first specifies 

CMP 

#$00 

AND 

# $F0 

the colour being used to plot with. And the 

BEQ 

$C1B5 

ORA 

#$08 

second — which is separated from the first by a 

CMP 

#$01 

STA 

$D018 

comma — specifies the background colour. 

BEQ 

$C1 BD 

LDX 

#$00 

(©COLOUR is also followed by two para- 

CMP 

#$02 

LDA 

$02 

meters. The first figure you give specifies the 

BEQ 

$C1C5 

STA 

$0400, X 

border colour. And the second— again, sep- 

LDX 

#$0B 

STA 

$04FA,X 

arated from the first by a comma — specifies 

JMP 

$0079 

STA 

$05F4,X 

the background colour of the low-resolution 

JMP 

$CA79 

STA 

$06EE,X 

screen. The background colour of the high- 

CLC 


INX 


resolution screen is specified by the ©HIRES 

BNE 

$C207 

CPX 

#$FB 

command’s parameters of course. 

ADC 

SA9C9.Y 

BNE 

$C1D8 

The figures used for the parameters corre- 

BYT 

$17 

LDX 

$C00E 

spond to the colours given in the Commodore 

STA 

$D018 

JMP 

$0079 

64’s Programmers’ Reference Guide. 

JMP 

$C1E9 




RETURN TO a NRM 


The @NRM command returns your Commo- 
dore from a multi-coloured or high- 
resolution graphics screen to the normal low- 
resolution screen. 


ORG 50912 
JSR $0073 
LDA #$93 
NOP 
NOP 


NOP 

LDA #$9B 
STA $D011 
LDA #$15 
STA $D018 


MULTI-COLOURED MODE 


The command @MULTI usually follows the 
©HIRES command and multiplies ©HIRE’S 
one plotting colour into three. So ©MULTI 
takes three parameters separated by commas, 
each of which specifies one of the colours. 
These colours are then referred to by the 
©PLOT command. 

The following routine handles the ©MULTI 
command: 



872 











28 (MACHINE CODE, 28 


m 

RETURNING TO LOW RES 

■ 

PLOTTING A POINT 

m 

CHANGING CHARACTER SET 

■ 

DRAWING A LINE 

■ 

USING MULTI COLOURS 

■ 

DRAWING RECTANGLES 

■ 

CHANGING COLOURS 

■ 

FILLING A BLOCK 

■ 

REVERTING COLOURS 

■ 

EXTENDING THE COMMANDS 




ORG 49648 

JSR SAEFD 

JSR $B79B 

JSR $B79E 

TXA 

TXA 

STA $CFF0 

STA $CFF2 

STA $D021 

STA $D023 

JSR SAEFD 

LDA #$D8 

JSR $B79E 

STA $D016 

TXA 

LDX $C00E 

STA $CFF1 

JMP $0079 

STA $D022 



CHANGING COLOUR 


The command @L0WC0L allows you to 
change the colour used for plotting from that 
originally specified with @HIRES or @MULTI. 
It takes three parameters which, again, spec- 
ify the three plotting colours to be used. 
Although high resolution mode only uses two 
colours — one for plotting and one 
background — three numbers must still follow 
the command, even though the third para- 
meter has no effect. Note there is no space 
between LOW and COL. The following routine 
deals with @L0WC0L. 


ORG 46696 
JSR $B79B 
TXA 

STA $D021 
JSR SAEFD 
JSR $B79E 
TXA 

STA $D022 


JSR SAEFD 
JSR SB79E 
TXA 

STA SD023 
LDA #$80 
STA $02 
LDX $C00E 
JMP $0079 


CHANGING COLOURS BACK 


If you want to change your plotting colours 
back to their original values, you use the 
@HIC0L command. And as it simply undoes 
the effects of the @L0WC0L commands, it 
needs no parameters. Note there is no space 
between HI and COL. 

The following routine puts it into effect: 


ORG 51712 
JSR $0073 
LDA #$FF 
STA $CFF6 
STA $CFF7 


PLOTTING 


STA $CFF8 
STA $CFF9 
LDX $C00E 
JMP $0079 


Although @PL0T is one of the simplest 
commands, it is much longer than the other 
routines here. That’s because it is a crucial 


part of the program, which the other routines 
call. 

All @PL0T does is draw a single dot on the 
screen. It is followed by three parameters. 

The first specifies the horizontal position 
of the dot. The second specifies its vertical 
position. And the third fixes how the dot is to 
be printed. 

In both @HIRES and @MULTI mode, a 0 in 


the third parameter clears the dot by 
overprinting it with the background colour. A 
1 in @H I RES mode draws a dot on the screen 
in the plotting colour specified by the 
@HIRES command. And a 2 reverses the dot — 


placed repeatedly, next to each other. And 
once you can create lines, you can extend the 
process to make circles, rectangles and block 
commands. 

Anyway, the following routine supplies the 


if it is in the plotting colour it changes it to the 

building blocks, the dots themselves: 

background colour, and if it is in the back- 





ground colour it changes it to the plotting 

ORG 

49811 

STA 

$CFE3 

colour. 

LDA 

#$00 

LDA 

$CFE2 

In @MULTI mode, if the third figure is a 1, 

STA 

$CFFF 

CMP 

#$C9 

2 or 3, the dot is drawn in the first, second or 

JSR 

$0073 

BCC 

$C2CA 

third colour specified by the @MULTI or 

JSR 

$AD8A 

JMP 

$C48C 

@L0W COL command. This time, 4 reverses 

JSR 

$B7F7 

LDA 

$CFE0 

the colour — it changes a dot in the back- 

LDA 

$14 

CMP 

#$40 

ground colour to one in the third colour, a dot 

STA 

$CFE0 

BCC 

$C2D9 

in the first colour to one in the second, a dot in 

LDA 

$15 

LDA 

$CFE1 

the second colour to one in the first, and one 

STA 

$CFE1 

BEQ 

$C2D9 

in the third colour back to one in the 

JSR 

$AEFD 

JMP 

$C48C 

background colour. 

JSR 

$B79E 

JMP 

$C36E 

Drawing one dot on the screen may seem 

STX 

$CFE2 

LDA 

$CFE2 

like a pretty minor facility. But it is the 

JSR 

$AEFD 

STA 

$CFE8 

foundation of many of the other commands. 

JSR 

$B79E 

STA 

$CFE5 

Obviously, when you draw a line on the 

TXA 


LDA 

$CFE0 

screen it is made up of a number of dots 

AND 

#$07 

STA 

$CFE9 











STA 

$CFE6 

STA 

SCFEF 

BCC 

$C359 

CMP 

#$02 

STA 

SCFEF 

JSR 

$C4EC 

LDA 

$CFE1 

LDA 

#$07 

INC 

$FC 

BNE 

$C391 

LDA 

SCFE3 

CLC 


STA 

SCFEA 

SEC 


CLC 


JSR 

SC4AB 

CMP 

#$00 

LDA 

SCFE1 

STA 

SCFE7 

SBC 

SCFEF 

ADC 

SFB 

JMP 

SC3F9 

BNE 

SC3D2 

AND 

#$01 

LDA 

$CFE8 

STA 

SCFEF 

STA 

SFB 

JSR 

$C49E 

JSR 

SC4B8 

BEQ 

$C40C 

LSR 

A 

LDA 

#$00 

BCC 

SC361 

JMP 

$C3F9 

JMP 

SC3F9 

LDA 

$CFE0 

LSR 

A 

STA 

$FB 

INC 

$FC 

CLC 


CMP 

#$04 

LSR 

A 

LSR 

A 

LDA 

#$20 

LDA 

SFB 

LDA 

SCFE0 

BNE 

$C3DC 

ADC 

#$80 

STA 

$CFEB 

STA 

$FC 

CLC 


CMP 

#$A0 

JSR 

$C4C5 

LSR 

A 

LDA 

$CFE9 

LDX 

SCFEB 

ADC 

SCFEE 

BCC 

$C3A2 

JMP 

$C3F9 

LSR 

A 

STA 

$CFEC 

BEQ 

$C34E 

STA 

SFB 

JMP 

$C48C 

CMP 

#$01 

JMP 

$C412 

LDA 

SCFEA 

INC 

$FC 

BCC 

SC36D 

LDA 

SCFE1 

BNE 

$C3E9 

LDA 

$CFE0 

LSR 

A 

LDA 

SFB 

INC 

$FC 

CMP 

#$00 

NOP 


LSR 

A 

ROR 

SCFEC 

CLC 


RTS 


BEQ 

$C3AC 

NOP 


LSR 

A 

LSR 

A 

ADC 

#$40 

JSR 

SC2DC 

JMP 

SC48C 

NOP 


LSR 

A 

ROR 

SCFEC 

STA 

$FB 

LDA 

$0016 

LDA 

$CFE0 

JSR 

SC4D2 

STA 

SFB 

LSR 

A 

BCC 

$C34B 

AND 

#$10 

ASL 

A 

JMP 

$C3F9 

LDA 

SCFE2 

ROR 

SCFEC 

INC 

$FC 

CMP 

#$10 

STA 

$CFE0 

CMP 

#$02 

LSR 

A 

STA 

SCFED 

DEX 


BEQ 

SC397 

LDA 

SCFE1 

BNE 

$C3F6 

LSR 

A 

LDA 

SCFE8 

BNE 

SC33E 

LDA 

$CFE3 

ADC 

#$00 

NOP 


LSR 

A 

AND 

#$07 

LDA 

$CFEC 

CMP 

#$00 

STA 

SCFE1 

NOP 


STA 

SFC 

STA 

SCFEE 

ASL 

A 

BNE 

$C387 

JSR 

$C2DC 

NOP 


LDY 

#$00 

LDA 

SCFE9 

ASL 

A 

JSR 

$C491 

LDA 

SCFEF 

JSR 

SC4DF 

STY 

SFD 

AND 

#$07 

ASL 

A 

JMP 

$C3F9 

LSR 

A 

JMP 

$C3F9 

LDX 

#$04 
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STX $FE 


LDX 

#$0B 

the end of the line. And the fifth parameter 

BNE 

$C4A7 

STA 

$CFDC 

CPY $FC 


JMP 

($0300) 

specifies the colour of the line in exactly the 

JMP 

$C538 

RTS 


BEQ $C438 


LDY 

#$00 

same way as the third parameter of @PLOT 

LDA 

$CFDD 

LDA 

$CFD5 

LDA $FD 


LDX 

$CFEF 

did. 




BNE 

$C4B2 

BNE 

$C50D 

ADC #$28 


LDA 

($FB),Y 

The following routines draws lines: 

JSR 

$C4FF 

INC 

$CFE0 

STA $FD 


AND 

$C120,X 





JMP 

$C4B5 

BNE 

$C50C 

LDA $FE 


STA 

($FB),Y 

ORG 

50045 

STA 

$CFD8 

JSR 

$C519 

INC 

$CFE1 

ADC #$00 


RTS 


LDA 

#$00 

LDA 

#$00 

JSR 

$C4D7 

RTS 


STA $FE 


LDY 

#$00 

STA 

$CFDE 

STA 

$CFD6 

JSR 

$C4D7 

LDA 

$CFE0 

INY 


LDX 

$CFEF 

STA 

$CFD3 

LDA 

$CFD2 

BPL 

$C4D1 

BNE 

$C515 

JMP $C424 


LDA 

($FB),Y 

STA 

$CFD5 

SEC 


LDA 

$CFDD 

DEC 

$CFE1 

CLC 


ORA 

$C118,X 

JSR 

$0073 

SBC 

$CFE2 

BNE 

$C4C8 

DEC 

$CFE0 

LDA $FD 


STA 

($FB),Y 

JSR 

$AD8A 

STA 

$CFD9 

JSR 

$C519 

RTS 


ADC $FB 


RTS 


JSR 

$B7F7 

LDA 

$CFD3 

JMP 

$C4CB 

LDA 

$CFD6 

STA $FD 


LDY 

#$00 

LDA 

$14 

SBC 

$CFDE 

JSR 

$C4FF 

BNE 

$C527 

LDA $FE 


LDX 

$CFEF 

STA 

$CFE0 

STA 

$CFDA 

JSR 

$C4EB 

INC 

$CFE2 

ADC #$00 


LDA 

($FB),Y 

LDA 

$15 

BPL 

$C43F 

JSR 

$C4EB 

BNE 

$C526 

STA $FE 


EOR 

$C118,X 

STA 

$CFE1 

DEC 

$CFD6 

JSR 

$C2AE 

INC 

$CFDE 

LDY #$00 


STA 

($FB),Y 

JSR 

$AEFD 

SEC 


JMP 

$C47D 

RTS 


LDA $CFF9 


RTS 


JSR 

$B79E 

LDA 

#$00 

LDA 

$CFDB 

LDA 

$CFE2 

CMP #$FF 


LDY 

#$00 

STX 

$CFE2 

SBC 

$CFD9 

SEC 


BNE 

$C52F 

BNE $C46E 


LDX 

$CFEF 

JSR 

$AEFD 

STA 

$CFD9 

SBC 

$CFD9 

DEC 

$CFDE 

LDA $D016 


LDA 

($FB),Y 

JSR 

$AD8A 

LDA 

#$00 

STA 

$CFDB 

DEC 

$CFE2 

AND #$10 


AND 

$C0AA,X 

JSR 

$B7F7 

SBC 

$CFDA 

LDA 

$CFDC 

RTS 


CMP #$10 


STA 

($FB),Y 

LDA 

$14 

STA 

$CFDA 

SBC 

$CFDA 

LDX 

#$0B 

BEQ $C45A 


RTS 


STA 

$CFD0 

LDA 

#$00 

STA 

$CFDC 

JMP 

($0300) 

JMP $C480 


LDY 

#$00 

LDA 

$15 

STA 

$CFDD 

RTS 


LDA 

$CFFE 

LDA $CFF3 


LDX 

$CFEF 

STA 

$CFD1 

LDA 

$CFD9 

LDA 

$CFDB 

CMP 

#$00 

STA ($FD),Y 


LDA 

($FB),Y 

JSR 

$AEFD 

SEC 


CLC 


BEQ 

$C540 

CLC 


EOR 

$C0AE,X 

JSR 

$B79E 

SBC 

$CFD7 

ADC 

$CFD7 

RTS 


LDA $FE 


STA 

($FB),Y 

STX 

$CFD2 

LDA 

$CFDA 

STA 

$CFDB 

LDX 

$C00E 

ADC #$D4 


RTS 


JSR 

$AEFD 

SBC 

$CFD8 

LDA 

$CFDC 

JMP 

$0079 

STA $FE 


LDY 

#$00 

JSR 

$B79E 

BCC 

$C46E 

ADC 

$CFD8 

LDX 

$AA00,Y 

LDA $CFF2 


LDX 

$CFEF 

STX 

$CFE3 

LDX 

$CFD9 




STA ($FD),Y 


LDA 

($FB),Y 

LDA 

$CFE2 

LDA 

$CFD7 

■drawing rectangles! 

JMP $C480 

NOP 

LDA $CFF9 

STA ($FD),Y 

CLC 

LDA $FE 

ADC #$D4 

STA $FE 

LDA $CFF8 

STA ($FD),Y 


ORA 

STA 

RTS 

LDY 

LDX 

LDA 

ORA 

STA 

RTS 

LDY 

$C0B2,X 

($FB),Y 

#$00 

$CFEF 

($FB),Y 

$C0B6,X 

($FB),Y 

#$00 

CMP 

BCC 

JMP 

LDA 

CMP 

BCC 

JMP 

LDA 

AND 

STA 

#$C9 

$C3D3 

$C54F 

$CFD2 

#$C9 

$C3DD 

$C54F 

$CFE3 

#$07 

$CFE3 

STA 

STX 

LDX 

LDA 

STA 

STX 

DEC 

LDA 

STA 

LDA 

$CFD9 

$CFD7 

$CFDA 

$CFD8 

$CFDA 

$CFD8 

$CFDD 

$CFDD 

$CFDB 

$CFD8 

@REC draws a rectangle and requires five 
parameters. The first pair specify the horiz- 
ontal and vertical co-ordinates of the top 
lefthand corner of the rectangle. The third 
parameter specifies the width of the rectangle, 
and the fourth parameter its depth. Again, the 
fifth specifies the colour in the same way as 
the third parameter of @PLOT. The following 
program draws a rectangle: 

LDA $CFFF 


LDX 

$CFEF 

JSR 

$C2AE 

STA 

$CFDC 

ORG 

50944 

STX 

$C843 

BEQ $C486 


LDA 

($FB),Y 

LDA 

$CFD0 

JSR 

$C2AE 

LDA 

#$02 

JSR 

$AEFD 

RTS 


ORA 

$C0BA,X 

SEC 


LDA 

$CFDD 

STA 

$CFFF 

JSR 

$AD8A 

LDX $C00E 


STA 

($FB),Y 

SBC 

$CFE0 

BNE 

$C494 

LDA 

#$00 

JSR 

$B7F7 

JMP $0079 


RTS 


STA 

LDA 

SBC 

STA 

$CFD7 

$CFD1 

$CFE1 

$CFD8 

LDA 

CMP 

BNE 

LDA 

$CFE0 

$CFD0 

$C4A7 

$CFE1 

STA 

STA 

STA 

JSR 

$CFDE 

$CFD3 

$CFD5 

$0073 

LDA 

STA 

LDA 

STA 

$14 

$C844 

$15 

$C845 

JMdrawing a line 



Again, aggregating dots to 

make up lines 

seems like a simple enough task. But the line 

BPL 

$C411 

CMP 

$CFD1 

JSR 

$AD8A 

JSR 

$AEFD 

routine is going 

to 

be called by other 

DEC 

$CFD5 

BNE 

$C4A7 

JSR 

$B7F7 

JSR 

$B79E 

routines — circle, rectangle, 

block — which 

SEC 


BEQ 

$C4A4 

LDA 

$14 

STX 

$C846 

make up their shapes from lines. 

LDA 

#$00 

LDA 

$FE2 

STA 

$C841 

JSR 

$AEFD 

@LINE takes five parameters. The first two 

SBC 

$CFD7 

CMP 

$CDE2 

LDA 

$15 

JSR 

$B79E 

specify the horizontal and vertical positions of 

STA 

$CFD7 

BNE 

$C4A7 

STA 

$C842 

STX 

$C847 

the beginning of the line. The second pair 

LDA 

#$00 

LDA 

$CFDE 

JSR 

$AEFD 

LDA 

$C843 

specify the horizontal and vertical positions of 

SBC 

$CFD8 

CMP 

$CFD3 

JSR 

$B79E 

CMP 

#$C9 
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BCS 

$C79D 

LDA 

$C849 

JSR 

$AD8A 

LDA 

$C94E 

LDA 

$C842 

STA 

$CFD1 

JSR 

$B7F7 

STA 

$CFE0 

CMP 

#$01 

JSR 

$C56D 

LDA 

$14 

LDA 

$C94F 

BNE 

$C766 

LDA 

$C848 

STA 

$C955 

STA 

$CFE1 

LDA 

$C841 

STA 

$CFE0 

LDA 

$15 

LDA 

$C955 

CMP 

#$3F 

STA 

$CFD0 

STA 

$C956 

STA 

$CFD0 

BPL 

$C79D 

LDA 

$C849 

JSR 

$AEFD 

LDA 

$C956 

LDA 

$C841 

STA 

$CFE1 

JSR 

$B79E 

STA 

$CFD1 

CLC 


STA 

$CFD1 

STX 

$C957 

LDA 

$C958 

ADC 

$C844 

LDA 

$C84A 

JSR 

$AEFD 

STA 

$CFD2 

STA 

$C848 

STA 

$CFD2 

JSR 

$B79E 

STA 

$CFE2 

LDA 

$C842 

LDA 

$C843 

STX 

$C954 

CMP 

$C957 

ADC 

#$00 

STA 

$CFE2 

LDA 

$C950 

BEQ 

$C948 

ADC 

$C845 

JSR 

$C56D 

CMP 

#$C9 

CLC 


STA 

$C849 

LDA 

$C84A 

BCS 

$C8FE 

ADC 

#$01 

CMP 

#$00 

STA 

$CFE2 

LDA 

$C94F 

STA 

$C958 

BEQ 

$C78A 

STA 

$CFD2 

CMP 

#$01 

JSR 

$C56D 

CMP 

#$01 

LDA 

$C841 

BNE 

$C8E6 

JMP 

$C916 

BPL 

$C79D 

STA 

$CFE0 

LDA 

$C94E 

LDX 

$C00E 

LDA 

$C848 

LDA 

$C842 

CMP 

#$3F 

JMP 

$0079 

CMP 

#$63 

STA 

$CFE1 

BPL 

$C8FE 

JMP 

$C903 

BPL 

$C79D 

LDA 

$C848 

LDA 

$C956 

LDX 

#$0B 

LDA 

$C843 

STA 

$CFD0 

CMP 

#$01 

JMP 

($0300) 

CLC 


LDA 

$C849 

BNE 

$C8F4 

LDA 

$C957 

ADC 

$C846 

STA 

$CFD1 

LDA 

$C955 

SEC 


BCS 

$C79D 

LDA 

$C84A 

CMP 

#$3F 

SBC 

$C950 

CMP 

#$C9 

STA 

$CFE2 

BPL 

$C8FE 

BEQ 

$C8FE 

BCS 

$C79D 

STA 

$CFD2 

LDA 

$C957 

BCC 

$C8FE 

STA 

$C84A 

JSR 

$C56D 

CMP 

#$C9 

LDA 

$C950 

JMP 

$C7A2 

LDA 

$C843 

BCS 

$C8FE 

STA 

$C958 

LDX 

#$0B 

STA 

$CFE2 

LDX 

#$00 



JMP 

($0300) 

LDA 

$C84A 





LDA 

$C847 

STA 

$CFD2 

■the ROUTINE TABLE! 



LDA $C841 
STA $CFE0 
LDA $C842 
STA $CFE1 
LDA $C843 
STA SCFE2 
STA $CFD2 
LDA $C848 
STA $CFD0 


STA 

STA 


$CFE0 

$CFD0 


LDA $C842 
STA $CFE1 
STA $CFD1 
JSR $C56D 
LDX $C00E 
JMP $0079 


FILLING IN A BLOCK 


@BL0CK draws a solid rectangle — in other 
words, it draws a rectangle like the one in the 
routine above, then fills it with colour. Its five 
parameters work the same as those for @REC. 

The following routine creates solid rectan- 
gular blocks of colour: 


ORG 49345 
WOR &C130 
WOR &C100 
WOR &C1F0 
WOR &C6E0 
WOR &C220 
WOR &CA00 
WOR &C293 
WOR &C370 
WOR &C860 
WOR &CE00 
WOR &CE00 
WOR &C1A0 


WOR &C700 
WOR &CE00 
WOR &CE00 
WOR &CE00 
WOR &CE00 
WOR &CE00 
WOR &CE00 
WOR &CE00 
WOR &CE00 
WOR &CE00 
WOR &CE00 
WOR &CE00 


ORG 51328 
LDA #$02 
STA $CFFF 
LDA #$00 
STA $CFDE 
STA $CFD3 
STA $CFD5 
JSR $0073 
JSR $AD8A 


JSR $B7F7 
LDA $14 
STA $C94E 
LDA $15 
STA $C94F 
JSR $AEFD 
JSR $B79E 
STX $C950 
JSR $AEFD 


NEXT ZZ,Z 

10 @HIRES 0,3:@COLOUR 0,0: 

@MULTI 2,4,5 

20 ZZ = 0:FOR Z = 1 TO 199:ZZ = ZZ + 
,8:@LINE 1 60 — ZZ,1 99,1 60,1 99 — Z, 
RND(1)*3 + 1:NEXTZ 
30 FOR Z = 1 TO 3:@BLOCK 160 — 

Z*40,1 99 — Z’40,1 60 — Z'l 5,1 99 — 
Z'15,Z:NEXT Z 

40 FOR Z = 5 TO 15 STEP 5:@BLOCK 
Z,Z,1 60 — Z,1 99 — Z,4: N EXT Z 
50 FOR Z=1 TO 75 STEP 2:@REC 
114 — Z,1 54 — Z,Z,Z,Z AND 3:NEXT Z 
60 ZZ = 0:FOR Z = 1 TO 199 STEP 

2:ZZ = ZZ + 1 ,6:@PLOT ZZ,0,3:@PLOT 
0,Z,3:NEXT Z 

70 @LOWCOL 3,6,7:FOR Z = 1 TO 3 
80 @LINE Z’30,0,0,Z'15,Z: 

NEXT Z 

90 FOR Z = 1 TO 4000: NEXT Z 
100 FOR Z=1 TO 10:@CSET(0): 

FOR ZZ = 1 TO 100: NEXT ZZ: 
@CSET(2):@MULTI 2,4,5 
105 FOR ZZ = 1 TO 100: NEXT ZZ,Z 
110 FOR Z = 1 TO 2000: NEXT Z: 
@NRM:@COLOUR 6,12:PRINT 

Switch on the routine with SYS 49152. 


THE LOW-RES SCREEN 


When you @NRM or @CSET 0, you return to 
the low-res screen. This routine does that: 


Don’t forget to update the table that contains 
the start addresses of the command routines 
to include the new ones you have just added. 
The routine table should now read: 


TESTING THE COMMANDS 


Try the following BASIC graphics program 
to test the commands you have added: 

1 PRINT “□a”;TAB(9);“THIS IS A DEMO 

PROGRAM” 

2 FOR Z = 1 TO 10:@CSET(0): 

FOR ZZ = 1 TO 100: NEXT ZZ 

3 @CSET(1):FOR ZZ = 1 TO 100: 


ORG 

LDX 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

INX 

BEQ 

JMP 

LDA 

LDY 

JMP 

LDA 

AND 

STA 

LDX 

LDA 

STA 

LDA 


51744 
#$00 
$0400, X 
$A028,X 
$0500, X 
$A1 28, X 
$0600, X 
$A228,X 
$0700, X 
$A328,X 

$CA40 
$CA22 
$02 
#$00 
$C1 74 
$01 
#$FE 
$01 
#$00 
$A028,X 
$0400, X 
$A128,X 


STA 

LDA 

STA 

LDA 

STA 

INX 

BEQ 

JMP 

LDA 

ORA 

STA 

LDX 

JMP 

LDA 

AND 

CMP 

BNE 

JMP 

LDX 

LDA 

STA 

JMP 


$0500, X 
$A228,X 
$0600, X 
$A328,X 
$06B0,X 

$CA6D 

$CA4F 

$01 

#$01 

$01 

$C00E 

$0079 

$D011 

#$20 

#$20 

$CA85 

$C979 

$C00E 

#$15 

$D018 

$0079 


You must also alter the @HIRES routine in 
part one by doing the following POKEs — POKE 
49520,76: POKE 49521,23: POKE 49522,202. 
ReSAVE @HIRES after you have made these 
changes. 
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A PLAY 
ON WORDS 


Additions, amendments and 
deletions, all of these are possible. 
So if you want to create the perfect 
composition, start with a draft and 
improve it at your leisure 



In the second part of this article, the main 
core of the text editor, we describe how to use 
the editing functions on each machine. 
Although the general procedures for using the 
program follow much the same pattern, the 
specific controls and features do differ. 

Once you have keyed in the part of the 
program contained in this article, you will be 
able to make full use of the editing facilities 
contained within the program. But remem- 
ber, you won’t be able to print out any text 
until you’ve keyed in the final part of the 
program which will be published in the third 
part of this article. 

Since the art of letter writing has become a 
thing of the past, you will find the editing 
facilities contained in the text editor program 
helpful on many levels. At the simplest level, 
spelling corrections can be made just by 
moving your electronic nib — the cursor — to 
the offending word, and deleting or inserting 
characters as necessary. 

If you don’t have problems with spelling, 
but find actually composing the text a prob- 
lem, particularly if it’s an important let- 
ter such as an application for a job, or a letter 
to your bank manager explaining why you’ve 
just inadvertently overdrawn your account, 
then you’ll find this program ideal. When 
typing a letter you can end up wasting many 
sheets of paper as you struggle to find the 
right words — the opening words are usually 
the most difficult to find. Composing straight 
onto your computer keyboard will keep the 
waste paper bin empty and your temper 
intact. Instead of agonizing over finding the 
perfect opener, you can simply do your letter 
in draft form. You can then analyze what 
you’ve written by scrolling the text— either 
backwards or forward — up and down the 
screen. Once you’ve decided what needs to be 
amended or omitted, you can delete or insert 
words, phrases or even sentences until you 
finally arrive at the perfect composition. 

An additional benefit of composing onto 
the screen is that you can store the letter and 
use it again, or simply have a record of what 
you’ve said. 

The facilities contained within this 
program are similar to, although considerably 
less sophisticated than, the facilities available 


on the modern phototypesetting machines 
which are used to typeset publications such as 
INPUT. And you can very easily see the 
advantages if you have read about, or are 
familiar with, the methods used to compose 
type before the phototypesetter was invented. 



The Spectrum program is set up for use with 
a tape unit, so ensure you make the necessary 
amendments if you want to use a Microdrive. 


The editing features are almost identical to 
those used for normal BASIC editing, and no 


special ‘editor’ mode is needed. All entries 
and amendments to copy have to be made in 
the bottom section of the screen displaying 
the work area — rather than the top section 
which is for viewing the text that is in the 
machine’s memory. 

When editing text that is in the work area, 
further characters can be inserted by using the 
[CAPS SHIFT] and 5 to move the cursor to the 
left and ICAPS SHIFT] and 8 to move it to the 
right. Once the cursor is in the required 
position, key in any additions. To delete, 
position the cursor to the right of the redund- 



—■■■■■i >< mnummiim 


■ 

MAKING ADDITIONS 

■ 

MOVING PARAGRAPHS 

■ 

CORRECTING ERRORS 

■ 

CONVENIENCE OF INPUT 

■ 

MAKING AMENDMENTS 

■ 

TIME FOR ANALYSIS 

■ 

MAKING DELETIONS 

■ 

USING THE PROGRAM 

■ 

ADJUSTING TEXT 


TO PERFECT COMPOSITION 



ant character and press ICAPS SHIFf l and 0. 

To put te xt from the work area into 
memory, use I ENTER | . Lines longer than 64 
characters (the maximum two lines that can 
be held in the work area) are transferred 
automatically. But these remain linked to the 
following line for printout or display unless 
special formatting commands are used. 

The cursor up and cursor down keys are 
used to locate specific lines of text contained 
in the memory— a bright marker is positioned 
under your ‘target’ line in the text viewing 
area towards the top of the screen. The line 


can be copied to the work area usi ng the 
normal EDIT function — by pressing ISHIFTI 
and 1, then edited as described above. To 
delete a line of te xt already in the memory, 
press ICAPS SHIFT l and 9 to exit from editor 
mode, and press ICAPS SHIFTl and 
ISYMBOL SHTFtI simultaneously. 

To scan text contained in the memory use 
cursor do wn and curs or up keys, ICAPS SHIFT l 
and 6 and ICAPS SHIFT] and 7. These keys will 
move the text up or down one line at a time. 

1000 REM print screen 
1005 PLOT 0,13: DRAW 255,0: PLOT 0,14: 
DRAW 255,0 

1010 PRINT AT 0,0;: FOR n = p — 10 TO 

p + 8 

1020 IF n < 1 OR n> 200 THEN PRINT s$: 
GOTO 1050 

1025 IF n = p THEN PRINT 
1030 PRINT t$(n) 

1040 POKE 22528 + 320,1 20 

1050 NEXT n 

1060 RETURN 

2000 REM input 

2010 LET i$ = “”: LET j$ = “” 

2015 PRINT #1;AT 0,0;i$;FLASH 1; BRIGHT 
1 FLASH 0; BRIGHT 0;j$;“D” 

2020 PAUSE 0: LET a$ = INKEY$: IF a$ = “” 
THEN GOTO 2020 
2025 BEEP .01,20 

2030 IF a$ < CHR$ 32 THEN GOSUB 2500 
2040 IF a$>CHR$ 31 AND a$<CHR$ 123 
THEN LET i$ = i$ + a$ 

2042 IF a$ = CHR$ 13 AND b = ext -6 THEN 
PRINT # 1 ;AT 0,0;s$;s$; FLASH 1;“TEXT 
FILE FULL”: BEEP 2,10: RETURN 
2045 IF a$ = CHR$ 13 OR LEN i$ + LEN 
j$ = 64 THEN PRINT # 1 ;AT 0,0;s$;s$;s$: 
LET i$ = i$+j$: GOTO 2100 
2050 IF a$ = CHR$ 14 THEN RETURN 

2052 IF a$ = CHR$ 6 THEN INPUT “Enter 
target string”, LINE z$: IF z$ = “” THEN 
GOTO 2052 

2053 IF a$ = CHR$ 6 THEN LET p = 4: 

GOSUB 8000 

2054 IF a$ = CHR$ 4 THEN GOSUB 8000 

2055 IF a$ = CHR$ 5 THEN GOSUB 8500 
2060 GOTO 2015 

2100 IF LEN i$>32 THEN GOTO 2150 
2105 FOR n = b + 1 TO p STEP -1 


2110 LET t$(n + 1) = t$(n) 

2120 NEXT n 

2130 LET t$(n + 1) = i$: LETp = p + 1: LET 
b = b + 1 

2140 GOSUB 1000: GOSUB 2500: GOTO 2000 
2150 FOR n = b + 1 TO p STEP -1 
2160 LET t$(n + 2) = t$(n): LET 
t$(n + 3) = t$(n + 1 ) 

2170 NEXT n 

2180 LET t$(n + 1 ) = i$(T0 32): LET 

t$(n + 2) = i$(33 TO ): LET p = p + 2: LET 
b = b + 2 
2190 GOTO 2140 

2200 LET p = p — 1 : F0Rn = pT0b + 1 
2210 LET t$(n) =t$(n + 1) 

2220 NEXT n 
2225 LET b = b — 1 
2230 GOSUB 1000 
2240 RETURN 
2500 REM control codes 
2520 IF a$ = CHR$ 10 AND p<b — 2 THEN 
LET p = p + 1 : GOSUB 1000 
2530 IF a$ = CHR$ 11 AND p>t + 3 THEN 
LET p = p — 1: GOSUB 1000 
2540 IF A$ = CHR$ 12 AND LEN i$>0 THEN 
LET i$ = i$ (TO LEN i$ — 1 ) 

2550 IF a$ = CHR$ 8 AND LEN i$ > 0 THEN 
LET j$ = i$(LEN i$)+j$: LET i$ = i$ (TO 
LEN i$ — 1 ) 

2560 IF a$ = CHR$ 9 AND LEN j$>0 THEN 
LET i$ = i$+j$(1): LET j$=j$(2 TO ) 

2570 IF a$< >CHR$ 7 THEN GOTO 2580 
2572 LET j$ = t$(p — 1): LET i$ = “”; PRINT 
# 1 ;AT 0,0;s$;s$ 

2575 IF j$(LEN j$) = CHR$ 32 THEN LET 
j$=j$( TO LEN j$ — 1 ): IF LEN j$>0 
THEN GOTO 2575 

2580 IF a$ = CHR$ 15 AND p>4 THEN 
GOSUB 2200 
2690 RETURN 
3000 REM colours 

3010 PRINT AT 10,4;“Select paper colour 

(0-7)” 

3020 PAUSE 0: LET a$ = INKEY$: IF a$<“0” 
OR a$>“7” THEN GOTO 3020 
3030 PAPER VAL a$: BORDER VAL a$: CLS : 
RETURN 

The procedures for using this program follow 
the general outlines given previously. The 
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standard Commodore 64 screen editing facil- 
ities are very effective and these are retained 
in this text editor. But when you enter edit 
mode, editing controls pass largely to the 
function keys, some of which are used by the 
extra features associated with the printer 
routine. 

Text is created or amended in the work area 
near the bottom of the screen. The upper part 
of the display is for viewing text held in 
memory. Deletions and insertions are made in 
the n ormal way by using the |INST| ISHIFT1 or 
|DEL| keys once y ou have positioned the cursor 
using the 1CRSR | left and right keys. Existing 
characters are overwritten unless you use the 
insert mode which can be selected by pressing 

HE 

Text is placed in memory and disp layed in 
the viewing area by pressing [RETURN]. It may 
be recalled at any time by entering ‘editor’ 
mode which you do by pressing [fT]. A marker 
(H) indicates the text access point. The line 
immediately above the marker can be copied 
to the work area by pressing [73], and there it 
may be edited in the normal way. 

To delete a line of text in memory, enter 
editor mode and position the marker immedi- 
ately above the line you wish to remove, then 
press lINST/DEL l. A line spac e may be entered 
by simultaneo usly pres sing |INST| and [SHlFTl , 
or by pressing IRETURN | in entry mode without 
entering text in the work area. 

The contents of the memory can be viewed 
in edi t mode by pressing HE foll owed by 
ICRSR 1 up or down with or without ISHlFTl to 
scroll up and down from the marker position 
to which the editor mode always returns. 

You can jump five lines at a time by 
pressing the up arrow key or down by 
pressing the left arrow key. 

To exit editor or entry modes (in sequence) 
press H3- Text in memory will remain 
unaffected. 

1700 IFCP = 1 THEN1 51 0 

1710 CP = CP — 1 :F0RF = CPTOTL:TX$(F) 

= TX$(F + 1):NEXT:TL = TL — 1 
1720 GOSUB2090 
1730 GOTO1510 
1800 IFTL > 499THEN1 51 0 
1810 FORF = TL + 1 TOCP + 1 STEP — 1 :TX$ 

(F) 

= TX$(F-1):NEXT:TL = TL + 1:TX$ (CP) 

u » 

1820 GOSUB2090:GOTO1510 

2000 X = 0:IF TL > 499 THEN 2060 

2001 IFLEN(A$) <41THENTT$(X) = LEFTS 

(A$,LEN(A$) - 1 ):A$ = “”:GOTO2030 

2010 FORI = 41T01 STEP — 1 :IFMID$(A$,I, 

1)< >“D”THENNEXT:I = 41 
2020 TT$(X) = LEFT$(A$,40):A$ = MID$ 


(A$, 41) 

2030 X = X + 1 :l FA$ < > “”ANDA$ < > 
“□’’THEN2001 

2040 FOR I = TL + XTOCP + XSTEP — 1 :TX$(I) 
= TX$(I — X):NEXTI 

2050 FORI = 0TOX — 1 :TX$(CP + 1) =TT$ 
(l):NEXT 

2060 A$ = ”D”:P = 0:PRINTLEFT$ 
(GC$,23)A$; 

2080 TL = TL + X:CP = CP + X 

2090 IF CP <15 THEN SI =0:GOTO 2100 

2095 SI = CP — 15 

2100 PRINT“n”;:F0RK = S1T0S1 +15: 
PRINTTX$(K);:IFLEN(TX$(K)) < 40 
THENPRINTCHR$(1 60) 

2110 IFK = CP— 1THENPRINT“ □ an 

2120 NEXT 

2122 PRINT“aH”SP$“E0H123456 

789 B 0 □ 1 23456789 B 0 □ 1 23456 
789B0Q 123456789 S3 
2130 PRINT“aMEM”;BL$;“FREE = ||”; 
40* (501 - TL); 

2140 PRINT“|| 0/W M0DE = ||“0W” 

|| EDIT MODE = ”;EM:PRINT“H” 
SW$“|3”;:RETLIRN 
2500 IFCP <5THENPM = CP 
2510 GETTB$:IFTB$ = “”THEN2510 
2512 IFPM = 1ANDTB$ = “n”THEN2510 
2520 IFPM>1ANDTB$ = “n”THENPM = 

PM — 1 :CP = PM:GOTO2550 
2525 IFPM<TLANDTB$ = “H”THENPM = 
PM + 1 :CP = PM:GOTO2550 
2530 IFPM>5ANDTB$ = “ f ”THENPM = 
PM — 5:CP = PM:GOTO2550 
2535 IFPM <TL— 5 ANDTB$ = “+- ’’THEN 
PM = PM + 5:CP = PM:GOTO2550 
2540 GOTO2560 
2550 GOSUB2090:GOTO2510 
2560 IFTB$ = CHR$(1 36)THENEM = 0: 
GOSUB2090:GOTO1505 

2570 IFTB$< >CHR$(148)THEN2580 

2571 IFCP < 1THEN251 0 

2572 F0RK = TL + 1 TO PM + 1 STEP-1: 
TX$(K) = TX$(K— 1):NEXT: 

TL = TL+ 1 :TX$(PM) = 

2573 GOSUB 2090:GOTO2510 

2580 1FTBS < >CHR$(20)THEN2590 

2581 I FPM = TLTH EN251 0 

2582 FORK = PMTOTL:TX$(K) = TX$(K + 1 ): 

N EXT :TL = TL — 1 

2583 TX$(TL + 1 ) = “”:GOSUB2090: 

GOTO 2590 

2584 CP = CP-1 

2590 IFTBS = “@”THENSF = SF + 1 : 

IFSF = 1THENSS = CP:G0T0251 0 
2600 IFSF = 2THENSE = CP:SF = 0: 

G0SUB51 30:GOTO251 0 
2610 IFTBS = “S”THENGOSUB5070 
2620 GOTO2510 
3000 IFTL <2THEN3050 


3010PRINT“QHja”TAB(12) 

“BPRINTER R0UTINEE3 ”:CL0SE4 
3020 PRINT“BBI|FPOM ^MHEMORV 
OR FROM £|FWLE ?” 

3030 GETR$:IFR$< >“M”ANDR$< >“F” 
THEN3030 

3040 IFRS = “M”THEN3060 
3050 GOSUB4500 
3060 IFTL = 1THENPRINTTAB(11) 
“HSMaBNO FILE IN 
MEMORVQ”: GOTO3570 
3070 KF = 0:PRINT“||HFILL VARIABLE 
BL0CKS(Y/N)?” 

3080 GETR$:IFR$< >“Y”ANDR$< >“N” 
THEN 3080 

3090 IFRS = “N”THEN31 50 
3100 PRINT:PRINT“HliaK«EYBOARD 
OR ^FHILE?” 

3110 GETR$:IFR$< >“K”ANDR$< >“F” 
THEN3110 

3120 KF = 2:IFR$ = “K”THENKF=1: 
GOTO3150 

3130 INPUT” jglNPUT FILENAME”;VB$: 

VB$ = LEFT$(VB$,1 6) 

3140 IFLEFT$(VB$,1 ) < “A”0RLEFT$ 

(VB$,1 ) > “Z”THEN31 30 
3150 PRINT“Q DO YOU WISH TO CHANGE 
THE PRINTER (Y/N)?” 

3160 GETR$:IFR$< >“Y”ANDR$< >“N” 
THEN3160 

3170 IFRS = ‘TTHENGOSUB5500 
3180 PRINT’D” 

31 90 VB = 0:PP = 0:AS = 0:LC = 1 :PRINT 
“DO YOU WISH FOR A SAMPLE OUTPUT 
TOTHEDDSCREEN”; 

3191 PRINT’D (Y/N). < RETURN > TO 
RETURN TO MAIN MENU”:BL = 0 

3200 GETR$:IFR$ < > “Y”ANDR$ < > “N” 
ANDR$< >CHR$(13)THEN3200 

3210 IFR$ = CHR$(13)THENRETURN 

3211 IFR$ = “N”THENP = DN:OPEN4,P,7, 
“H”:GOTO3220 

3215 0PEN4,3:PRINTCHR$(14) 

3220 IFKF< > 2THEN3240 

3230 tFDL = 1 ANDKF = 2THEN3232 

3231 I FKF = 2TH EN3236 

3232 OPEN2,8,2,VB$ + “,S,R”: 

INPUT # 2,DV,DV:GOTO3240 

3236 OPEN1,1,0:INPUT#1,DV,DV 
3240 GPS = “”:IFR$ = “N”THENFORF = 1 
TOG P:GP$ = GP$ + “D”: NEXT 
3250 FORK = 1 TOTL — 1 
3252 IFLEFT$(TX$(K),1 ) = “ # ’’AND 
LEN(TX$(K)) — 1 > AS THEN AS = 
LEN(TX$(K)) 

3260 NEXT:IFAS>TWTHENPRINT“ERROR: 

ADDRESS TOO LONG”?GOTO3570 
3270 K= 1 :PRINT# 4,LF$;GP$;:AS$ = “”: 
IFAS>0THENFORF = 1TOGP + TW — AS: 
ASS = ASS + “ □ ”:N EXT 
3280 TT$ = TX$(K) 





3290 IFTT$ = “’’THENPRINT # 4,CHR$(1 3); 
GP$;:PP = 0:LC = LC + 1 :GOSUB3590: 
GOTO3520 

3300 BP = 0:FORF = 1TOLEN(TT$):IF MID$ 
(TT$,F,2) = “] [”THENBP = F:GOTO3304 
3302 NEXT F 

3304 I FBP = 0ORKF = 0THEN3390 
3310 I FKF = 1 THEN3370 


PRINT“INPUT VARIABLE BLOCK”; 
BL;:INPUT RP$ 

3380 TT$ = LEFT$(TT$,BP — 1 ) + RP$ + 
MID$(TT$,BP + 2):GOTO 3300 

3390 CF = 0: FORF = 1 T04:IFLEFT$ 

(TT$,1 ) = MID$(“&$* # ”,F,1 )THENCF = F 

3391 NEXTF:ONCFGOTO3460, 3470, 3490, 3510 
3400 IFPP + LEN(TT$) < =TWTHEN 

PRINT # 4,TT$;:PP = 
PP + LEN(TT$): 

I GOTO3520 

341 0 TA$ = LEFT$(TT$, 
TW-PP) 

3420 CF = 0:FORF = 1 TO 
LEN(TT$):IFMID$(TT$, 
F,1) = “D”THEN 
CF=F:GOTO 3422 
3421 NEXT F 

3422 IFCF > TWTHENPRINT 

“ERROR -WORD TOO LONG IN”;TT$: 
GOTO3570 

3430 I FRIG HT$(TA$,1 ) = “ □ ”TH EN3450 
3440 I FLEN (TA$) > 0TH ENTA$ = LEFTS 
(TA$,LEN(TA$) — 1):GOTO3430 
3450 PRINT # 4,TA$;CHR${1 3);GP$;: 

PP = 0:LC = LC + 1 :GOSUB3590: 

TT$ = M I D$(TT$, LEN (TA$) + 1 ) 

3452 IFTT$< >“”THENBP = 1:GOTO3400 
3454 GOTO3520 

3460 PRINT # 4,CHR$(1 3);CH R$(1 3);GP$;: 

PP = 0:LC = LC + 1 :GOSUB3590:TT$ = 
MID$(TT$,2):GOTO3300 
3465 GOTO 3300 

3470 TT$ = MID$(TT$,2):PRINT#4, 
CHR$(13);GP$;:IFPP< >TW 
THEN3479 

3471 FORF = 1TOINT(TX/2):PRINT#4,CHR$ 
(32);:NEXT:PP = INT(TX/2): 

GOTO3480 
3479 PP = 0 

3480 LC = LC + 1 :GOSUB3590:GOTO3300 
3490 TT$ = MID$(TT$,2):IFLEN(TT$) 

< =TWTHEN3500 

3491 PRINT“ERROR- CANNOT CENTRE” 
TT$:GOTO3520 

3500 PRINT # 4,CHR$(1 3);GP$;:FOR 
F = 1TOINT((TW — LEN(TT$))/2): 

PRINT# ,“D”;:NEXT 
3501 PRINT # 4,TT$ 

3506 PRINT#4,CHR$(13);GP$;:PP = 0: 

LC = LC + 1 :GOSUB3590:GOTO3520 
3510 PRINT #4,CHR$(13);AS$;MID$ 
(TT$,2);:PP = 0:LC = LC + 1 : 

GOSUB3590 

3520 K = K + 1:IFP = 3THENFORZ = 1TO 
500:NEXT 

3530 IFK<TLTHEN3280 

3540 I FP < > 3THENPRINT # 4,LF$;LF$: 

GOTO3550 
3541 PRINT:PRINT 
3550 FORZ = 1 T04:C LOSEZ: N EXTZ 


3320 IFDL= 1THEN3360 
3330 IFST=64THEN3350 
3340 INPUT #1,RP$:GOTO3380 
3350 PRINT“ERROR — NOT ENOUGH DATA IN 
FILE”:GOTO3570 
3360 IFST=64THEN3350 
3362 INPUT#2,RP$:GOTO3380 
3370 BL = BL + 1:PRINT:RP$ = “”: 
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3560 IFP = 0THEN31 90 

3561 RETURN 

3570 FORZ = 1 TO3000:NEXT : FORZ = 1 
T08:CL0SEZ:NEXTZ 
3580 RETURN 

3590 IFLC > THTHENPRINT #4,LF$;LF$; 

GP$;:LC = 1 
3600 RETURN 



To enter Editor mode simply press E. If you 
are dealing with text already stored in the 
memory, Press T, B or N, depending on the 
area of text which requires editing. If text is to 
be keyed in and edited at the same time, press 
any of these keys. 

To delete characters in the work area use 
the right or left cursor keys to position cursor 
to the right of the relevant character then 
press I DELETE I . 

To amend text already stored in memory, 
use the cursor up or down keys to move the > 
marker directly bel ow the line containing the 
error, and press the I COPY I key. This will move 
an identical line of text into the work area. 
Insert or delete as described above. Return 
the amen ded line to the memory by pressing 
[RETURN U making sure that the > marker is 
positioned directly below the point the amen- 
ded line has to be inserted. To delete the 
original line, move the marker directly 
beneath it and press control D. 

To review text in the memory, enter editor 
mode and press T, B or N depending on 
where you want to start. If you then press 
either the up or down cursor keys, text will 
move up or down ten lines at a time. 

To return to the main menu press I ESCAPE I . 
To store new text in the memory, press 
[RETURN]. Text will automatically go into 
memory if you key more than 120 characters. 

Additional characters can be inserted at 
any point in the work area by moving the 
cursor to the right of the chosen point. 
Amendments can then be keyed in and exist- 
ing text will not be overwritten. 

For disk drive, omit Lines 860 and 1020. 

670 TB = GET 
680 *FX21,0 
690 REM 

700 CP = CP-H((TB = 1 39) - (TB = 1 38))* 
(1-9*INKEY( — 1 )) 

710 IF CP<1 THEN CP = 1:G0T0 790 
720 IF CP > TL THEN CP=TL:G0T0 790 
730 IF TB > 31 AND TB <128 OR TB = 1 3 OR 
TB = 136 OR TB = 137 THEN RETURN 
740 IF CP > 1 AND TB = 4 THEN TL = 

TL — 1 :F0R K = CP — 1 TO TL:TX$(K) 

= TX$(K + 1):NEXT:TX$(TL + 1) = 

“”:CP = CP — 1:G0T0 790 


750 IF CP > 1 AND TB = 135 THEN VDU 
23,1 ,0;0;0;0;:PRINTTAB(0,1 5) 
SPC(120):VDU 23,1 ,1 ;0;0;0;: 

A$ = TX$(CP — 1 ):RETURN 
760 IF TB = 19 THEN GOSUB 1200 
770 IF TB< >0 THEN 790 
780 SF = SF + 1:IF SF = 1 THEN SS = CP 
ELSE SE = CP:SF = 0:GOSUB 1260 
790 GOSUB 600:GOTO 670 
800 CLS:PRINTTAB(15,2)RV$“SAVE 
A FILE”NM$:IF TL = 1 THEN 
PRINTTAB(0,10)“NOTHING TO 
SAVE”:F0R Z = 1 TO3000 : N EXT: R ETU R N 
810 INPUT"“FILENAME PLEASE”, F$ 

820 IF LEN(F$) >8 THEN PRINT“THAT NAME 
IS TOO L0NG”:G0T0 810 
830 CLS:PRINTTAB(0,4)“SAVING”; 

F$ 

840 ’TAPE 
850 '0PT1,1 
860 'OPT 2,1 

870 IF SFF = 0 THEN ‘DISK 
880 H = 0PEN0UT(F$) 

890 PRINT# H, CP, TL 
900 FOR K = 1 TO TL — 1 :PRINT # H, 
TX$(K):NEXT 
910 CLOSE #H:RETURN 
920 CLS:PRINTTAB(15,2)RV$“LOAD A 
FILE”NM$:IF TL = 1 THEN 980 
930 PRINT“ARE YOU SURE (Y/N) ?” 

940 R$ = GET$:IF R$ = “N” THEN RETURN 
950 IF R$< >“Y” THEN 940 
960 FOR K = 1 TO TL:TX$(K) = 
NEXT:TL=1:CP = 1 

970 TX$(0) = CHR$(0) + RV$ + “START 
OF TEXT” + NM$:TX$(TL) = CHR$ 

(0) + RV$ + “END OF TEXT” + NM$ 


980 INPUT"“FILENAME PLEASE”, F$ 

990 IF LENF$>8 THEN PRINT“THAT NAME 
IS TOO L0NG”:G0T0 980 
1000 'TAPE 
1010 ‘OPT 1,1 
1020 'OPT 2,1 
1030 IF LF = 0 THEN 'DISK 
1040 H = 0PENIN(F$) 

1050 INPUT# H, CP, TL 
1060 FOR K = 1 TO TL-LINPUT# 
H,TX$(K):NEXT 
1070 CLOSE #H 

1 080 TX$(TL) = CHR$(0) + RV$ + “END OF 
TEXT” + NM$ 

1090 RETURN 

1100 CLS:PRINTTAB(14,2)RV$“l/0 
SETUP”NM$ 

1110 PRINT'"“LOAD FROM (T)APE OR 
(D)ISK”; 

1120 B$ = GET$:IF B$o“T” AND 
B$< >“D” THEN 1120 
1130 PRINTBS 

1140 IF B$ = “T” THEN LF = 1 ELSE LF = 0 
1150 PRINT''“SAVE TO (T)APE OR (D)ISK”; 
1160 B$ = GET$:IF B$< >“T” AND 
B$< >“D” THEN 1160 
1170 PRINTBS 

1180 IF B$ = “T” THEN SFF = 1 ELSE 
SFF = 0 
1190 RETURN 

1360 IF ERR< >17 THEN PRINT: 
REPORT:PRINT“ AT LINE ”; 
ERL:PRINT:END 

1370 IF ERL = 210 THEN PRINT 
“ESCAPE”:END 

1380 IF ERL <120 OR ERL >180 THEN 120 
ELSE 200 






E 


The screen display (and eventual output) 
defaults to upper case (capitals). Lowercase 
(small) characters can be entered by releasing 
a cap lock using |SHIFT| 0. Lowercase text is 
shown by standard reverse field display. 

The general editing controls follow the 
guidelines given previously. Text is edited in 
the work area towards the bottom of the 
screen — the upper part of the screen is for 
viewing text stored in memory. The cursor 
keys play an important part in moving over 
the text to allow editing. The left and right 
cursor keys enable you to move along t he text 
line in the work area — pressing ISHIFTl simul- 
taneously with left cursor ‘toggles’ the cursor 
either to the start or to the end of the line. 

Further characters can be inserted at any 
point in the work area text by moving the 
cursor to the right of the chosen point. You 
cannot overwrite characters. To delete an 
error, position cursor over character and press 
down arrow. 

To enter ‘editor’ mode press up arrow. The 
cursor automatically locates the last ‘access’ 
position which is indicated by a flashing > 
marker. The editor automatically returns to 
the last position of the marker. 

Once in editor mode you can inspect the 
text in memory by scrolling upwards or 
downwards using up arrow and down arrow 
keys. Bigger (ten line) jumps are possible by 
pressing keys U (‘up’) and D (‘down’). 

Lines of text can be delet ed by p ositioning 
the marker and pressing the ISHIFTl and down 
arrow keys simultaneously. Blank lines can be 
inserted only in entry mode pressing I ENTER I 
with a blank line in the work area. 

The line immediately above the marker can 
be copied to the work area (ready for editing) 
by pressing C in editor mode. The amended 
line does not automatically replace the 
original line when it is returned — the latter 
has to be deleted afterwards. You can escape 
from ed itor mode simply by pressing 
I RETURN |, Thi s returns you to the edit mode, 
where ICLEAR I returns you to the edit mode 
menu. 

2500 PM = 5:IF CP <5 THEN PM = CP 
2510 TB$ = INKEY$:IF TB$ = “” THEN 
PRINT@PM'32,“”:PRINT@PM*32, 
“>”:GOTO2510 

2520 CP = CP + (TBS = “T”) - (TB$ = 
CHR$(1 0)) + 1 0*{{TB$ = “U”) — 

(TB$ = “D”)) 

2530 IF CP <1 THEN CP = 1 
2540 IF CP >TL THEN CP=TL 
2550 GOSUB2090 

2560 IF TB$ = CHR$(13) THEN RETURN 



• With this progra m you can key text in a 
word at a time, press [RETURN], and still end 
up with continuous text on the print out. 
But beware, if you don’t remember to 
insert spaces at the end of each word, the 
words will be printed out as one solid line 
and you’ll end up with gobbledegook. 
This is an easy mistake to make as spaces 
are not visible on the screen and can easily 
be forgotten. 


2570 IF CP > 1 AND TBS = CH R$(91 ) 

THEN TL = TL — 1:F0RK = CP — 1 TO 
TL:TX$(K) = TX$(K + 1 ):NEXT:TX$ 

(TL + 1 ) = “”:CP = CP - 1 :GOSUB2090 
2580 IF CP >1 AND TB$ = “C” THEN 
FORK =32 TO 1 STEP — 1:IF MID$ 
(TX$(CP — 1),K,1) = “ ” THEN 
NEXT ELSE A$ = LEFT$(TX$(CP — 1 ), 

K) + “ RETURN 
2590 IF TB$ = “S” GOSUB5070 
2600 IF TB$ = “@” THEN SF = SF + 1 :IF 
SF = 1 THEN SS = CP ELSE 
SE = CP:SF = 0:GOSUB51 30 
2610 GOTO 2500 
3000 RETURN 'TEMPORARY LINE 
4000 CLS:IF TL = 1 THEN PRINT@7, 
“nothing to save”:FORZ=1TO1000: 
NEXT:RETURN 

4010 CLS:LINEINPUT“ FILENAME ?”;F$ 

4020 IF LEFT$(F$,1 ) < “A” OR LEFTS 
(F$,1) >“Z” THEN 4010 
4030 IF TS = 1 THEN 4120 
4040 CLS:M0T0R0N:AUDI0 0N:PRINT 
“POSITION TAPE, THEN PRESS enter” 
4050 IF INKEYS < >CHR$(13) THEN 4050 
ELSE MOTOROFF:AUDIO OFF: PRINT 
“PLACE RECORDER IN RECORD MODE 
□ □□THEN PRESS enter” 

4060 IF INKEYS < >CHR$(1 31 THEN 4060 
4070 M0T0R0N: FORK = 1T01 000-.NEXT: 

0PEN“0”,#-1,F$ 

4080 PRINT# -1, CP, TL 
4090 FOR K = 1 TO TL — 1 :PRINT # — 1, 
TX$(K):NEXT 
4100 CLOSE# -1 
4110 RETURN 

4120 CLS:PRINT“ ENSURE DRIVE IS ON AND 
A DISCO aa\S INSERTED. PRESS enter 

Tonnn □□continue” 

4130 IF INKEYS < >CHR$(1 3) THEN 4130 
4140 CREATE F$ 

4150 FWRITE F$;CP:FWRITE F$;TL 
4160 FOR K = 1 TO TL— 1 
4170 FWRITE F$;TX$(K) 

4180 NEXT:RETURN 


4500 CLS:PRINT@8,BL$;“load”;BL$; 

“a”;BL$;“file”;BL$:IF TL = 1 THEN 4540 
4510 PRINT” ARE YOU SURE (Y/N) ?” 

4520 R$ = INKEY$:IF R$< >“Y” AND 
R$< >“N” THEN 4520 
4530 IF R$ = “N” THEN RETURN 
4540 CLS:LINEINPUT“ INPUT 
FILENAME ?”;F$ 

4550 IF LEFT$(F$,1) <“A” OR LEFTS 
(F$,1 ) > “Z” THEN 4540 
4560 IF DL = 1 THEN 4650 
4570 M0T0R0N:AUDI00N:PRINT 

“POSITION TAPE, PUT INTO PLAY MODE, 
THEN PRESS enter” 

4580 IF INKEYS < >CHR$(1 3) THEN 4580 
4590 0PEN“l”, # — 1,F$ 

4600 INPUT# -1, CP, TL 
4610 FORK = 1T0TL — 1 :INPUT # — 1,TX$(K): 
NEXT 

4620 CLOSE# -1:GOSUB2090 
4630 TX$(TL) = STRING$(32, 126) 

4640 RETURN 

4650 FREAD F$,FROM0;CP:FREAD F$;TL 
4660 FORK = 1 TO TL— LFLREAD F$;TX$(K) 
4670 NEXT:RETURN 
5000 CLS:PRINT@10,BL$;“i”;CHR$ 

(1 24);“o”;BL$;“setup”;BL$:PRINT 
@96,“ LOAD FROM (T)APE OR 
(D)ISC ?”; 

5010 B$ = INKEY$:IF B$< >“T” AND 
B$< >“D” THEN 5010 
5020 PRINTB$:DL = 0:IF B$ = “D” THEN 
DL= 1 

5030 PRINT:PRINT“ SAVE TO (T)APE OR 
(D)ISC ?”; 

5040 B$ = IN KEYS: IF B$o“T” AND 
B$< >“D” THEN 5040 
5050 PRINTB$:TS = 0:IF B$ = “D” THEN 
TS = 1 

5060 RETURN 

5070 RETURN 'TEMPORARY LINE 
5130 RETURN 'TEMPORARY LINE 
5500 CLS:PRINT@8,BL$;“printer”; 
BL$;“setup”;BL$ 

5510 PRINT@128,;:INPUT“ MAX. LINE 
WIDTH ”;MW:MW = INT(MW):IF MW<1 
THEN 5510 

5520 INPUT" LINE WIDTH REQUIRED 

TW:TW = INT(TW):IF TW<1 0RTW>MW 
THEN 5520 

5530 INPUT" PAGE LENGTH ”;PL:PL = 
INT(PL):IF PL < 1 THEN 5530 
5540 INPUT" TEXT LENGTH ”;TH:TH = 
INT(TH):IF TH < 1 OR TH > PL THEN 5530 
5550 GP = INT((MW— TW)/2):LF$ = STRINGS 
(INT((PL— TH)/2),13) 

5560 PRINT:PRINT:PRINT“ IS THIS OK 
(Y/N) ?” 

5570 R$ = INKEY$:IF R$< >“N” AND 
R$< >“Y” THEN 5570 
5580 IF R$ = “Y” THEN RETURN ELSE 5500 





COMPUTER- 
CONTROLLED ROBOTS 


Following in the wake of the Micro mand. POKE 37138,255 sets the value to When the information reaches its destin- 
Revollltion, the Age Of Robotics has 1 1 1 1 1 1 1 1 — the binary equivalent of 255. A 1 ation, it is used to control various operations, 

now dawned not with the power- means that a channel is transmitting data; a 0 Typically, in operating an electro-mechanical 

seeking monsters of fiction, but with means * is re “ iving k s ° the , above k P0KE *£ ice such as a robot ’ J is ff used t0 switch , 

, I , I . , - command sets all eight channels at the user different motors on and off to carry out 

nelptul peripherals p 0rt t0 output POKE 371 38,1 5 sets the value to specific functions. By setting the value of the 

Dr Frankenstein implanted a brain into a 00001111, which means that the first four port address, you can send signals to specific 

creation from the graveyard. If the mad channels are set to receive and the second four destinations. For example, if the value is set to 

doctor had used the brain of a computer and to transmit. The other computers work in a 001 101 1 1, a signal is sent along the 3rd, 4th, 

the body of a cyborg he would have saved similar way, although the specific addresses to 6th, 7th and 8th wires at a parallel port, or to 

himself much trouble and probably earned a POKE are different, of course. the 3rd, 4th, 6th, 7th and 8th destinations 

Queen’s Award to Industry. The second byte that controls the port is through a serial port. 

Just as the human brain communicates the port address. Any string of 0s and Is in 

with the outside world through the five senses the port address can be converted by a chip on 

for input, and through speech and movement the interface board into a series of electronic 
for output — so an electronic brain needs to be voltages at the port. These voltages are then 
linked to input and output channels. Your passed on to the device. At a parallel port this 


computer is already linked to the usual input 
and output devices — at least a keyboard or 
joystick and a monitor or TV set — but it is an 
ideal ‘brain’ for a wide range of other mechan- 
ical and electronic devices, which can provide 
the computer with ‘senses’ to receive data 
from the outside world. 

The computer can provide ‘intelligence’ 
for a mechanical device. Connected to a 
typewriter (or keyboard and printer) a com- 
puter becomes a word processor; with an 
electronic organ, it becomes a synthesiser; 
linked to a vacuum cleaner, you have a robot 
that cleans the carpet. 

Generally, computers have at least one 
input/output port through which they can 
communicate with external, mechanical de- 
vices. There are two types of port: serial and 
parallel, which differ according to how they 
handle data. In most home computers, in- 
cluding all those covered here, one byte of 
memory contains eight bits of information— 
hence the name ‘8-bit micro’. The inform- 
ation stored in a byte is in a string of eight 0s 
and Is— for example, 00101101. 

The computer has its own internal ‘mem- 
ory map’, in which there are two bytes of 
memory labelled specially for the 
input/output port. The first byte is the Data 
Direction Register (DDR). This determines 
the status of the port, dictating whether 
channels are used for input or output. On the 
Vic 20 for example, the address of the DDR is 
37138. Its value is set using the POKE corn- 



information passes along eight separate wires 
simultaneously, but at a serial port the in- 
formation passes along one wire in separate 
bursts. 




ARTIFICIAL INTELLIGENCE 

BINARY CODI NG 

TYPES OF ROBOT 

ROBOT ARMS 

PRICE RANGES 
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CONTROLLING BEASTY 

LANGUAGES 

■ 

OTHER FACILITIES 
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ROBOTIC SENSES 
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THE TURTLE 


As a means of teaching the principles of VT VJ tures. Robots are also used in repetitive, 

programming, as well as school geome- IUisIUIaULIJI monotonous tasks, such as paint spraying, 

try, the Turtle and LOGO are highly Many industries use robots in situations mechanical assembly and sorting. But the use 

successful. The remarkably good results dangerous to human beings, such as handling of robots is not restricted to industry. Several 

are due in part to the affection children radioactive materials, toxic or explosive 

and adults alike have for the ‘animal’, chemicals, or substances at extreme tempera- 

which has the effect of making the sub- 
ject less abstract, more understandable 
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reasonably priced robots can be controlled 
from a home computer. They can see, read 
bar codes, draw, teach a high level programm- 
ing language, and manipulate objects. There 
are two main categories of robots suitable for 
home micros — robotic arms, and floor turtles 
and buggies. These are supplied with ‘user 
friendly’ software, requiring no specific 
knowledge by the user. 

Robotic arms are modelled on the human 
arm. They can have as many as five points of 
movement: four of these represent the shoul- 
der, elbow, wrist and grip. The fifth, at the 
arm base, gives the arm the facility to ‘swivel 
about the hips’. Popular arms vary in price 
from about the price of a game on disk to 
about 100 times as much, so the level of 
sophistication is governed by how much you 
spend. 

Armatron is one of the least expensive 
robotic arms. It is not programmable, so it is a 
sophisticated toy rather than a true robot. It is 
driven by a battery powered electric motor 
and controlled by two joysticks. At the other 
end of the range are Hero 1 and Genesis P10 1, 
which have their own on-board computer and 
are available in kit form. 

In the middle of the price range (costing as 
much as a BBC B), Armdroid 1 is interfaced 
to all the computers. It is powered by six 
stepper motors and has five points of move- 
ment. It can raise, lower and rotate the wrist. 
The arm can be controlled in ‘immediate’ 
mode from the keyboard, or programmed by 
storing a string of arm positions in the 
computer memory. Movements can be run 
continuously or a step at a time. Pauses can be 
added, the arm speed altered, and routines 
edited. The program to move the arm is 
written in BASIC, with machine code calls 
which control the motors. The Armdroid’s 
manufacturers provide a listing and explan- 
ation of the BASIC program, so you can 
modify it to suit yourself. Another electrically 
powered arm is the Micro Grasp, which can 
be interfaced to the Spectrum, Dragon and 
BBC. 

If these are too expensive an introduction 
to robotic arms, try Beasty — a rather more 
generalized control system consisting of a 
small black plastic box with a row of five 
connectors along one edge. One of the con- 
nectors is for input, and accepts a three-core 
cable from a user port on your computer. As 
yet, Beasty is only inferfaced to the BBC B, 
but interfaces for other home micros will soon 
become available. 

Each of the other four connectors is for a 
servo unit— a high quality motor which pro- 
vides feedback. The servo motors connect to 
Beasty with the same three-core cable that 


connects Beasty to the computer. In this 
form, Beasty is not yet a complete robot, but it 
has the great merit of flexibility, since the 
servos can be used to control almost any 
equipment to which they are capable of being 
fixed, within reach of the wires. Possible 
applications include all sorts of models — they 
have even been used for film ‘monsters’ — and 
of course robot arms. These may be home 
made, but Beasty’s makers in fact supply a 
complete arm ready for attachment. 

The Beasty robotic arm is powered by up 
to four servos. It is made with aluminium 
rods and plastic mouldings mounted on a 
metal base, and can be assembled in a number 
of configurations. The arm has three axes of 
movement plus a simple grip, and moves like 
a human arm with rigid wrist and hips. There 
is one servo for each point of movement and 
one for the gripper. 


CONTROLLING BEASTY 


Beasty’s manufacturers have created a lan- 
guage called ROBOL to control the servos. 
Each program line consists of a series of 
instructions telling all the individual servos to 
make a single movement, and by how much. 
A complex operation can thus be broken 
down into a series of movements, each con- 
trolled by one program line. ROBOL is 
loaded from cassette and the following display 
appears on the screen: 

ROBOL: Interactive robot controller 


1 MOVE 500 500 500 500 


Editing 

This prompts you to enter the instructions 
which form the first program line. You do this 
directly from the keyboard, and the Beasty 
responds directly to the instructions. If you 
now press 1, for example, the servo plugged 
into position 0 on Beasty moves, and the value 
of the first 500 on the display is increased. 
Pressing Q will cause the same servo to move 
in the opposite direction, and decrea se the 
value of the first number. Pressing [SHIFTl 
with 1 or Q causes the values to change more 
quickly. Keys 2 and W, 3 and E, 4 and R, give 
you similar control over the movements of the 
remaining three servos. 

Set the values of the servos, press IRETURN I 
and the screen will look something like this: 

1 MOVE 24 344 920 460 

2 MOVE - - 

The computer has stored the values on Line 1 
in its memory and is waiting for the values for 
Line 2. Carry on in the same way and you 
might produce something like this: 


1 MOVE 24 344 920 460 

2 MOVE - - 200 - 

3 MOVE - 120 - 324 

A dash indicates that a servo does not move on 
that particular line. In Line 2 of the above 
program, only the third servo moves. In Line 
3, the second and fourth servos move. 

There are other keywords as well as MOVE. 
Using JUMP makes the servo jump to its new 
position, a more violent action than MOVE. 
WAIT followed by a value causes the program 
to pause for a set time. 

Programs can be saved on disk or tape, 
under th e filenam e LIFT, for example, by 
pressing I ESCAPE I and then typing SAVE 
“LIFT”. 

Also on the tape is a machine code program 
called Driver which can be positioned any- 
where in the computer’s memory and in- 
corporated in BASIC routines. Driver is 
called with the X register containing the 
Beasty channel number, and the Y register 
giving the new value for that servo. On the 
BBC, Driver is loaded at location &2800 by 
typing: 

TOAD DRIVER 2800 
The next line would be: 

DRIVER = &2800 

which allows Driver to be called by name. So 
your BASIC program would begin with CALL 
DRIVER, to synchronize the Drivers with the 
computer (to initialize them). 

The following program, is a typical 
example of how Driver can be called into a 
BASIC routine. But don’t actually enter this, 
as it is only an example: 

10 CALL DRIVER 
20 REM INITIALISES DRIVER 
30 PRINT “DO YOU WANT AN APPLE OR AN 
ORANGE?” 

40 INPUT A$ 

50 IF A$ = “APPLE” THEN 100 ELSE IF 
A$ = “ORANGE” THEN 200 
100 X% = 0 

110 REM SET SERVO TO TURN BASE 
120 Y% = 1 50 

130 REM TURNS BASE TO FACE APPLE 
140 CALL DRIVER + 3 

150 REM UPDATES SERVO X% TO VALUE Y% 

160 GOSUB910 

170 END 

200 X% = 0 

210 Y% = 0 

220 REM TURNS BASE TO FACE ORANGE 
230 CALL DRIVER + 3 
240 GOSUB910 

900 REM ROUTINE TO LIFT FRUIT 
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910 X%=1 

920 REM SET SERVO TO LIFT LOWER 
SECTION OF ARM 
930 Y%=200 
940 REM LIFT LOWER ARM 
950 CALL DRIVER + 3 
960 X%=2 

970 REM SET SERVO TO TOP SECTION OF 
ARM 

980 Y% = 50 

990 REM LOWER ARM TOP 
1000 CALL DRIVER + 3 
1 01 0 X% = 3 

1020 REM SET SERVO TO CLOSE GRIP 

1 030 Y% = 260 

1040 REM CLOSE GRIP 

1050 CALL DRIVER + 3 

1 060 X% = 2 

1070 REM SET SERVO TO TOP OF ARM 

1080 Y% = 255 

1090 REM RAISE FRUIT 

2000 CALL DRIVER + 3 

2010 RETURN 

The program offers the user a choice 
between an apple or an orange, placed in 
predetermined positions in front of the Beasty 
arm, so the arm can move and lift the desired 
fruit. The positional settings depend on the 
way in which the arm is constructed. 


OTHER FACILITIES 


You can fit the Beasty arm with an electronic 
camera called Snap and enable your micro to 
‘see’. Snap contains a light sensitive chip, 
which transfers an image to the monitor or 
TV set at a resolution of 128 x 256. It weighs 
less than 45 g, measures 8 x 10 cm and can 
take up to 20 frames per second. 

There are several interesting programs 
supplied with Snap. The program for dis- 
playing what the camera sees is called EV 1 . A 
particular frame can be kept as a still, and 
saved on tape or disk. And you can dump the 
picture on the screen to a printer. A program 
called Movie allows you to record and replay a 
series of 20 frames, creating a primitive 
animation sequence. One program that many 
users may find useful is Secure, which detects 
a change between a stored picture and the 
scene the camera is filming. This can be used 
as a kind of burglar alarm. When the picture 
has changed more than a preset amount, 
indicating an intruder, an alarm sounds and 
the program displays a graph of the number of 
alarms over a period of time. Another 
program with obvious applications in educ- 
ation and industry is Animal, which provides 
a method for the computer to recognize 
shapes and objects. Names are entered for 
different shapes. When the computer recogn- 


izes a shape, it prints out the name. 

The robotic arm becomes remarkably ver- 
satile when it is mounted on a Beasty tractor 
base. Two servos control the direction and 
speed of the base engines. This only leaves 
two motors for the arm, but a 7 servo Beasty is 
under development to allow a fully oper- 
ational arm to be transported on the base. 
Instructions travel down a spring wound 
cable. 


THE TURTLE 


One computer controlled robot that is becom- 
ing a familiar sight in primary schools is the 
Turtle — a cybernetic animal with a pen in its 
belly. The Turtle moves around the floor 
mimicing the graphic images on the screen. It 
can raise and lower its pen and be taught to 
draw intricate pictures and designs. 

Turtles have been around for some years 
but have been used mostly in universities with 
mainframe computers. They were specifically 
designed to teach the programming language 
LOGO, which has only recently become 
available for microcomputers but most ver- 
sions allow you to use BASIC as well. LOGO 
is a high level language that is particularly 
easy to learn. It is accessible to children as 
young as four years, which explains the 
interest from schools. 

There are versions of LOGO for all the 
computers. 

The first Turtle appeared at the Massa- 
chusetts Institute of Technology in the late 
1960 s, the brainchild of computer genius 
Seymour Papert. The first British Turtle 
came from Edinburgh University. It had a 
Meccano frame and was not accurate, but an 
improved version, called the Edinburgh 
Turtle, has since been manufactured. It is 
connected to the computer and power source 
by an umbilical cord. 

Recently the Edinburgh Turtle has been 
upstaged by the remote-controlled Valiant 
Turtle. This is controlled by infra-red signals 
and powered by rechargable nickel cadmium 
batteries. Problems associated with the 
umbilical cord, such as it twisting and pulling 
the Turtle off course, are eliminated from the 
new remote-control version. LOGO com- 
mands are keyed into the computer where a 
software interface converts them into binary 
code. This information goes to an infra-red 
transmitter. The turtle picks up the signal on 
its infra-red receiver, and the Turtle’s logic 
control instructs motors controlling the 
wheels and pen mechanism. The device actu- 
ally looks like a turtle, so makes -it easier for 
children to give directional instructions. The 
Turtle’s eyes illuminate, serving as power 
indicators, dimming when the batteries need 


recharging. The Valiant Turtle is compatible 
with all versions of LOGO and is supplied 
with its own Turtle Graphics software so you 
can use BASIC if you wish. It runs on the 
Spectrum, ZX 81, Commodore 64, BBC B 
and Vic 20. 

There is a second species of Turtle which 
inhabits the monitor. This is the screen 
Turtle, which sometimes looks like a tiny 
turtle and sometimes like a chevron. The 
instructions that control the floor Turtle also 
operate the screen turtle. Typical LOGO 
instructions are: 

FD 200 (this moves the Turtle 200 units 
forward) 

RT 60 (this turns the Turtle right through 60 
degrees) 

LT 90 (this turns the Turtle 90 degrees to the 
left) 

PU (this raises the pen) 

PD (this lowers the pen) 

To draw a triangle, with sides 200 units long 
the instructions you type could be: 

FD 200 
RT 120 
FD 200 
RT 120 
FD 200 
RT 120 

This could be written more economically as: 

REPEAT 3 (FD 200 RT120) 

END 

After defining TRIANGLE, the word 
becomes part of the Turtle’s vocabulary. So 
whenever you type TRIANGLE, it will draw a 
triangle with sides 200 units long. 

The key word TRIANGLE can be used to 
define a new procedure: 

TO PATTERN 

REPEAT 12 (TRIANGLE RT 30) 

END 

The keyword PATTERN could then be used in 
the definition of another procedure, and so 
on to make a complicated pattern. It is easy to 
see how you could define a routine to draw a 
leaf, for example, then another to define a 
branch, a tree then a forest. 

LOGO is a versatile language which can 
perform mathematical functions, and be used 
to create music. Coupled with the Turtle it 
makes learning computer programming fun. 
So the entire family can play Frankenstein, 
and transplant the computer’s brain into 
mechanical devices. In doing so, they would 
have watched science fiction become science 
fact in the living room. 
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A 

Applications 

text-editor program 

852-856, 878-883 

ATTR 

adding a new instruction 
Spectrum 844-847 

B 

BASIC 

adding instructions to 
Acorn , Dragon , Spectrum 

844-851 

Basic programming 

designing a new typeface 

838-843 

drawing conic sections 

857-863 

programming function keys 

825-829 

Beasty 

connecting and controlling 

887-888 

@BLOCK command 

routine to set up 

Commodore 64 877 

BYE 

adding a new instruction 
Acorn 847-849 

C 

Circles 


program to draw 

858 

uses of 

863 

Colour 


routines for changing 


Commodore 64 

872-877 

Conic sections 


program to draw 

857-863 

@CSET command 


routine to set up 


Commodore 64 

872 

Curves 


program to draw 

857-863 


D 

Data Direction Register 
(DDR) 884 

Datafiles 

use of in text editor 852 

Drawing a new typeface 

838-843 

E 

Editing 

using 0 keys 

Acorn 829 

using text-editor program 


Acorn, Commodore 64, 

Dragon , Spectrum 

852-856, 878-883 

Ellipses 

program to draw 858-859 
uses of 863 

F 

Function keys, programming 
Acorn 828-829 

Commodore 64, Vic 20 826-828 
FX command 
use of with 0 keys 
Acorn 826 

G 

Games 

Goldmine 830-837, 864-871 
Goldmine game 
part 1— basic routines 830-837 
part 2 — option subroutines 

864-871 

Graphics 

hi-res 

for custom typeface 

838-843 

setting up new commands 
Commodore 64 872-877 

in Goldmine game 

832-837, 870-871 

H 

@HICOL command 

routine to set up 
Commodore 64 
Hyperbolas 
program to draw 
uses of 

I 

INKEY 

use of to detect keypresses 
Acorn 829 

Instructions, adding to 
BASIC 

Acorn, Dragon, Spectrum 

844-851 

INV 

adding a new instruction 
Acorn 847-849 

INVERSE 

adding a new instruction 
Spectrum 844-847 

INVERT 

adding a new instruction 
Dragon 849-851 


K 

Keypresses 

detecting 

Acorn, Commodore 64, 

827-829 

L 

Letter-generator program 

Acorn, Commodore 64, Dragon, 
Spectrum, Tandy 838-843 

LINE 

use of to design typeface 
Dragon, Tandy 840-843 

@LINE command 
routine to set up 

Commodore 64 876 

LIST 

with [f] keys 

Acorn, Commodore 64827-829 


LOADing 

your custom typeface 
Acorn, Dragon, Spectrum, 


Tandy 

842-843 

LOGO language 
@LOWCOL command 

888 

routine to set up 


Commodore 64 

874 

M 


Machine code 



routine for hi-res graphics 
Commodore 64 872-877 

routine to add to BASIC 
Acorn, Dragon, Spectrum 

844-848 

Mathematical functions 

to draw curves 857-863 

Memory 

storing new keystrokes in 
Acorn, Commodore 64, 

Vic 20 827-829 

storing new typeface in 
Acorn, Commodore 64, 

Dragon, Spectrum, 

Tandy 842 

@MULTI command 
routine to set up 

Commodore 64 872-874 

N 

@NRM command 

routine to set up 

Commodore 64 872 

0 

OLD 

adding a new instruction 
Dragon 849-851 


874 

860-861 

863 


Operating system software 

Acorn, Commodore 64, 


Vic 20 

826-828 

P 

Parabolas 

program to draw 

859-860 

uses of 

863 

Peripherals 

robotics 

884-888 

@PLOT command 

routine to set up 
Commodore 64 

874-876 

Ports, input/output 

884 

R 

@REC command 

routine to set up 
Commodore 64 

876-877 

RND function 

in Goldmine game 

832-837, 864-871 

ROBOL language 

887 

S 

SAVEing 

your custom typeface 

Acorn, Commodore 64, 

Dragon, Spectrum, 
Tandy 

842-843 

Scaling 

a custom typeface 

841-843 

Snap 

888 

Stubs, Dragon 

849-850 

T 

Text-editor program 

Acorn, Commodore 64, 

Dragon, Spectrum 
part 1 

852-856 

part 2 

878-883 


Turtle 885-887, 888 

Typing 

speeding up using [f] keys 
Acorn, Commodore 64, 

Vic 20 825-829 


U 

Utility packages 

Commodore 64, Vic 20 827 

V 

VECTORS, redirecting 844-851 

W 

Work area 

of text-editor 853 
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A MARSHALL CJVINDISH COMPUTER COURSE IN WEEKLY PARTS * 


LEARN PROGRAMMING - FjOR FUN AND THE FUTURE 


LJln MACHINE CODE, there’s the start 
of CLIFFH ANGER, a complete ARCADE 
GAME. As it builds up, you’ll learn all 
about the routines, and create a game 


lJ For intellectual types, there’s a fun 
WORD GAME that is easy to program in 
BASIC and lets you play your friends at 
any level you want to set 


Li Continuing the mathematical 
background to computing, learn how to 
use CONIC SECTIONS IN PRACTICAL 
DEMONSTRA TIONS 


U There’s a simple MACHINE CODE 
routine with instant results — it turns 
your TV screen into a DIGITAL CLOCK 


LJ To complete the TEXT EDITOR, are 
SORT, SEARCH and FORM LETTER 
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